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; 1 001 module Lnk_procoptions : 
; § Oe o r Ride nt = 'v04-000' : 
; 4 saddressing mode : 
; 4 04 (external = generat 
3 5 BR? nonexternal = long_relative | 
ft Be lee ie! 
; 9 4484 1 &title ‘Linker options parser' | : 
5 90 010 1; | 
3 11 gt) ! ; | : 
° 1 BI¢ 1 i eeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeteeerereereeeeeeeeeeeneeneeeeeeeeeeeeeeeeeee | : 
; (4 0014 1 is ° 
3 15 0015 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * ; 
3 16 0016 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * ‘ 
; V? Bolg : ve ALL RIGHTS RESERVED. 7 ; 
. it ‘ 
; 19 0019 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | ‘ 
; 20 0020 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * ° 
3 21 0021 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
3 $$ O0ss 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
3 2 002 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ‘ 
3 $e +74 ! i: TRANSFERRED. , | : 
: 1 !® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
3 $$ $039 1 !® AND 5 on HOULD NOT BE CONSTRUED AS A COMMITMENT SY DIGITAL EQUIPMENT * : 
3 8 Bee : he CORPORATION. ’ | : 
. ® i é 
: $3 $080 1 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® : 
$ H id : ° SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : ; 
. 7 e 
. i ° : 
: 33 0038 : Ss eianmeaesadiabelearaniaeiaiacssaiadidenai-aaiia cmendamdis ites seaaenaoiainiaanan cicmaaniaiee ‘ 
; & 0035 1} ; 
3 36 0036 1! ; 
eo ae 0037 1! : 
; 0038 1! ; 
; » 0039 1 | | : 
; 460 0040 1 : 
oe Car Be PerH 
; “§ Bo48 MODULE: LNK_PROCOPTIONS | ; 
: rh Gods : FACILITY: LINKER | 
F 4 Been ! . ABSTRACT: Options processing | 
i 49 0949 1 i HISTORY: | ; 
: i 0081 i VERSION: v03-001 | 
; 35 0938 ! AUTHOR: B. Schreiber, 10-Jul-1980 | : 
; 23 0085 : MODIFIED BY: | 
: 3$ 0089 1} v03-33 ADE0003 Alan D. Eldridge 13-Aug-1984 3 


] 
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; es 8038 1! Always save options file input in an OE€B. It was only 

3 9 Boe 1: being done if LNKSV_LONG was set, but that flag doesn’t 
3 ¢' Boee : get set until after the routines in this module have executed. 
; 6¢ p0e8 1! v03-032 ADE0002 Alan D. Eldirdge 6-Aug-1984 

; 6 065 1! Add LNKSGL_UNSUPPORTED support. This is a mask settable 

3; & 0064 1! from the options file, and is used at this time solely to 
; o Bee? } } enable demand zero ISb's in shareable images. 

6 6OF 0067 1! v03-031 ADE0001 Alan D. ler ieee 29-Jun-1984 

; 0068 1! Remove improper cospteres about DZRO_MIN option being 

$ 4 bo i : ignored for shareable images. 

ae 4 0071 1! V03-030 JwWwT0156 Jim Teague 20-Feb-1984 

: i 0072 1! The SYMBOL option and the UNIVERSAL option don't 
sae 0075 1! ~y! ye very well. Declaring a symbol 

3; 676 0074 1! the SYMBOL option followed by making it 

> 7. 0075 1! UNIVERSAL would yield an undefined symbol. 

; 0076 1! However, reversing the order would cause an 
Bee gg 0077 1! access violation. 
; 7 0078 1! 
: 729 0079 1} VO3-029 sWT0149 Jim Teague 21-Dec-1983 | 
5 69 B280 : Allow the characters ‘'$" and "'_"' in directory specs. 

; ag 0082 1! v03-028 MCNOO01 Maria del C. Nasr 25-Jul-1983 

r. S 0083 1! If SET VERIFY is on and option file is being read from 
; B46 6084 1! SYSSINPUT, do not echo Line to output. DCL is doing 

; 0085 1! that now. 

3; 8 0086 1! 

s «GF 0087 1! v03-027 ywT0125 Jim Teague 21-Jun-1983 

5 4 443 ! Reincarnate UNIV=* when accompanied by /NOEXE. 

; 90 0090 1! V03-026 JwT0123 Jim Teague 27-May-1983 

: 4 BR3 4 : Add message for UNIV=*. 
; 38 0095 1! vO3-025 JwWwT0121 Jim Teague 20-May-1983 
; oe sae : } Sound the death knell for UNIVERSAL=*. 

° . | 
; 0096 1! V03-024 JwT0108 Jim Teague 13-Mar-1983 | 
: 44 i444 : } Adjustments to new CLI interface. 
:; 299 0099 1! V03-023 JwT0099 Jim Teague 14-Mar-1983 
3 190 8190 ! New CLI interface. 

: 102 0102 1! v03-022 JwT0071 Jim Tesque 02-Dec-1982 
: i}? bbz : Added NAME and IDENTIFICATION options. 

3; 105 0165 1! v03-021 JwT0050 Jim Teague 10-Aug-1982 
3 198 Bae ; } Add IMAGE_TYPE option with CLI value. 

; 108 0108 1! V03-020 JwWT0034 Jim Teague 25-May-1982 

3; 109 0109 1! Remove the GSMATCH ‘‘NEVER' option. 

: 110 110 1! 
s 491 111. 1 fe 

: M6 Ai¢ 1 

3 (11 0115 1 &sbttl ‘Declarations’ 

s 96 0114 1; 
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36115 115 ' H 
: 119 1 ! Include files: ° 
3; 43 1! $ 
; 118 1 ; 
: 1}? : library ‘LIBL32'; 'System macros : 
3 } 1 ! Library ‘TPAMACL32'; !TPARSE macros ; 
; ; 5 : Library "DATBAS'; ‘Linker data structures ; 
3 } 5 : require ‘PREFIX’; 'Linker macros : 
3 158 1 forward routine . 
; 128 1 readoption, 'Read record from options file : 
; jie 1 set_alluniv, !Set all universal temporarily ; 
; 150 1 scanline, ‘Collapse continuation Lines . 
s 3) 1 set_base, 'Set image base : 
3 136 1 set_channels, 'Set number of I/0 channels : 
; i 1 set_unsupported, 'Set ‘unsupported features’ mask : 
; «134 1 insertcluster, ‘Insert cluster in cluster List . 
. Tae 1 processfile, ‘Process a file specification te : 
: 136 1 getfilename, ‘Extract filename portion of file specification : 
: 157 0 1 search_insert_symbol, 'Lookup/insert a symbol into symbol table ; 
; «(138 0 1 crossref_symbol, ‘Enter symbol into cross reference ; 
3; «139 0 1 set_universal, 'Process universal symbols : 
: 140 0 1 definesymbolname, 'Process symbol name part of defining a symbol : 
3; (141 0 1 definesymbolval, ‘Process value part of defining a symbol : 
3 16 0 1 createpsect, ‘Create a psect : 
3; (14 0257 1 createcluster, 'Create a cluster F 
; 1446 0258 1 setclusterbase, 'Set the base address of a cluster F 
3: 6145 0259 1 setclusterpfc, 'Set page fault factor for cluster 3 
: 146 0260 1 clusterdone, 'Finish cluster option processing é 
; 147 0261 1 set_collect, 'Start collecting psects into clusters ; 
3; «(148 02 ; 1 colTect_psect, ‘Collect a psect into a cluster 3 
3; «149 02 1 set_gsmatch_ctl, 'Store match control part of GSMATCH option : 
; 1% 0264 1 set_gsmatch_maj, ‘Store major id of GSMATCH : 
; «6151 0265 1 set_gsmatch_min, 'Store minor id of GSMATCH 3 
3 13¢ 0266 1 set_min_dzro, 'Store dzro_min option data : 
; 15 0267 1 set_isd_max, 'Store isd_max option data $ 
3; 6154 0268 1 at ees 'Set size of 1/0 segment : 
; We 0269 1 set_pscatrib, 'Set psect attributes ; 
: 156 0270 1 set_p0bufs, 'Set/clear nopObufs flag 3 
3 137 0271 #1 set_protect, 'Set protect flag 3 
; 158 bere 1 set_shl, 'Set shl_extra option : 
; 159 m4 set_stack, 'Set stack option : 
: 160 ogre 1 set_include, 'Set /include qualifier : 
: 161 0275 1 set_ library. ‘Set (librery qualifier : 
$ 16¢ 0 6 1 set_selective, 'Set /selective qualifier 3 
; 8 77 1 set_shareable, :Set /shareable qualifier Ba ; 
3; «6164 78 (1 set_shrcopy flag, ‘Set copy / mentary flag for /shareable qualifier 3 
: 165 0279 1 set_gual_flags, 'Set bits for qualifiers : 
: 166 0 1 set_image_type, 'Set image type bit : 
3; «167 1 1 set_image_ident, 'Set image file identification : 
: 168 ¢ 1 set_image_name,— 'Set nage name : 
3 is? 1 search_ nsert_list, ‘Search Linked List for name : 
; 170 0284 1 namelengthcheck, 'Check max Length of name : 
s 71 0285 1 debug_stop, ‘Stop to look at tparse tabtes 
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COPTIONS Linker options parser 


missingargerr, 
optionvaluerr, 
syntaxerr; 


: External references 
external routine 


Link$insert_c 
ink$dealblk, 
ink$insudfsym, 
Lnk$insert, 
Lnk$search, 
ink$setlibrin, 
Lnk$setshrbLlin, 
Lnk$upcase_d, 
ib$put_oufput, 
Lib$tparse, 
sys$fao; 


external 


external Literal 


Lin$_cmdtoolong, 
Lin$_confqual, 


: vector C, byte], 
: vector C, byte), 


39813 r 99:44:36 AX-11 Bliss-32 V4.0- 
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‘Argument missing for option 
'Value out of range error 
'Report syntax error 


'Process input file 

'Insert cross reference reference 
‘Insert key into cross reference 
‘Insert into balanced binary tree 
‘Lookup in balanced binary tree 
‘Allocate dynamic memory 

‘Allocate psect def. descriptor 
‘Allocate a cluster descriptor A 
‘Compare names in psect def. descriptor 
‘Compare cluster name routine 
‘Insert cluster into cluster tree 
'Deallocate dynamic memory 

‘Insert a symbol into the undefined List 
‘Insert a symbol into symbol table 
'Search symbol table for symbol 

'Set input file as a rorery 

'Set input file as a shareable image 
‘Convert string to upper case 

‘Write to SYSSOUTPUT 

‘Table driver parser 

‘Formatted ASCIi output 


'Global section match control 
‘Global section match 

‘Default cluster descriptor : 
‘Pointer to current cluster descriptor 
'Tree head for cluster tree 
‘Linker control vloss 

'Listhead of free V 

'Size of stack 

'ASCIC string that says PSECT 

' or cluster 

! or string 

‘Image name field 

‘Image file identification field 
'Cref by value control table 

'Cref by symbol control table 
‘Maximum symbol name Length 
‘Maximum module name Length 

'Set if option file is SYSSINPUT 
‘Number of cross references 
‘Maximum number of isects 

‘Minimum demand zero number of pages 
‘Number of undefined symbols 


‘Command Line too long 
‘Conflicting qualifiers 
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5 9 43 1 Lingcrferr. 

; 0 44 1 Lin$_illnamelen, 

; 1 45 1 Lin$_linerr, 

5 ¢ *$ 1 i ng_mule luo t, 

: 47 1 Lin$_optignshr, 

: ‘8 1 t {RZ.Opt ignsys. 

; 5 49 1 Lin$_optlin, 

3 0350 1 Lin$S_optsynerr, 

; 0 @) 1 Lin$_optvalerr, 

; 8 8 ¢ 1 Lin$_optargmis, 

$ 9 53 1 Lin$_premeof, 

; 240 2 1 Lin$_readerr, 

: 241 5 1 Lin$_shrcpyign, 

; 246 2 1 Lin$_shrinsys, 

: 24 0357 1 Lin$ shrsepclu, 

3 246 0358 1 Lnk$K_max_filename_length; 

; 245 0359 1! 

; 246 0360 1 ! Own storage 

; 247 0361 1! 

: 248 Bae8 1 global 

: 249 03635 1 ink$gl_inclst : ref bblock Cdsc$c_s_bln], 
3; en 0364 1 ink$gl_defclunum, 

3 go) 0365 1 ink$gl_optextp : ref bblock, 

3 2g 0 1 Lnk$gl_optexte : ref bblock initial (lnk$gl_optextp), 
; 25 0367 1 ink$gl_shlextra, 

; 254 tre 1 ink$gw_chans : word, 

; 255 69 1 ink$gw_ioseg : word, 

; 256 0370 1 ink$gq_privs : vector (2) initi 
3 aor 0371 1 Lnk$gl_unsupported : long initial (0) 
: 258 Bae8 1 ink$gl_cclulst : ref bblock, 

: 259 0375 1 ink$gl_pscdflst : ref bblock; 

; 260 0374 1 

; 261 0375 1 global Literal 

3 6¢ 9376 1 Lnk$k_maxchans = 4095 

: 26 O37 ink$k-maxstack = 65535, 

; 264 378 1 ink$k_maxioseg = 65535, 

3 263 0379 1 ink$k_maxisds = $3232. 

; 266 0380 1 ink$k_mindzro = 65535, 

; 267 0381 1 ink$k_maxmajid = 255 

; 268 038 1 ink$k-maxminid = Ix'FFFFFF', 

: 269 0383 1 Lnk$k_maxoptlin = 3g767. 

: 270 8 84 1 Lnk$k_maxpfc = 255; 

. wari 85 1 

: gn 8 1 own 

; a 1 tparse_biock : bblock Cepash _jongend3 
: 2746 3 1 initial (long (tpa$k_count0) 
; 275 89 1 long (tpaSm_abbr fm) 
> 276 90 1 » 

: e777 0391 1 cmdbuffer, 

: 278 0 3 1 optlinedesc : bblock Cdsc$c_s_bin], 

: 279 0393 1 eee egneer : ref bblock, 

: 280 94 1 optrabadr : ref epsgek 

; 281 95 1 include_desc : bblock dsc$c_s_bln], 

; a¢ 36 1 curcollectdesc : ref bblock, 

; ae 97 1 curpsectdesc : ref bblock, 

; 284 98 1 cursymdesc : ref bblock, 

; «6285 0399 1 cursymsnb : ref bblock, 


Ngo deor1984 9:22:54 
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‘Error from cross reference 

‘Illegal name Length 

' Command a n error 

‘Cluster mult ply Geiined in options file 
‘Option ignored in shareable image 
'Option ignored in system image 

‘Option Line in error 

'General syntax error 

‘Option value error 

‘Argument missing for option 

‘Premature eof on options file 

'Read error on file blah 

'/SHARE=COPY attempted 

'Shareable image in Syetes image 
!Shareable image requires seperate cluster 
!Maximum filename Lergth 


‘Include List descriptor 

‘Default cluster number 

'‘Listhead of option file text 
‘Pointer to last text block 
‘Requested shl_extra 

'wumber of channels requested 

'Size of i/o segment 

'Requested privileges 
‘Unsupported features mask 

‘List head for collect cluster List 
'List head for psect definitions 


‘Maximum number of channels 
‘Maximum stack pages 

‘Maximum size of 1/0 Sognens 
‘Maximum number of isects 

'Maximum min_dzro size 

‘Maximum major ident 

‘Maximum minor ident 

‘Maximum size of option Line 
‘Maximum page fault cluster factor 


'Tparse parameter block 
'‘Abbreviate first match 


‘Address of command buffer ; 
‘String deer terer of complete Line 
‘Address of caller's file flags 
‘Address of RAB for 6Gt sequential 
‘address of include List 

‘Address of current collect descriptor 
‘Address of current psect descr eter 
‘Address of current symbol descriptor 
‘Address of current symbol name block 


Page 


tom ek L 


FRRRRR 
RroNoNoNonony 2 2 3 


wr 


w 


AVF WN "OOOO FS UR O0W 


inker o 
Declarat 


iii a a ak a = td = od od = 4 2 2 2 


cs parser 


desc : bblock CdscSe -s_binl, 
ename : ref bblock, 


sharecopy, 


lit 


bind 


eral 
delimited 


= 1., : 
words “s19n. bit = £x'8000,+—— 


rh_mask FFFF® 
image_ident_name = cstring ("Im 
mage_name_name = cstring (‘Im 
channéls_name = cstring (' = 
clusterpfc_name = cstring (‘Pa 
Cor ined by_option = cstring (' tin 
optionfilestring = cstring (‘OP 
dzromin_name = cstring (' 
smatch_name = cstring (' 
oseg_name = cstring (‘10 
isdnax _name = cstring (' 
an phage name = cstring (' 
stack_name = cstring (' 
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'String descriptor for file specification 

‘Address of string ey = + tee for options file name 
'True when inside double quotes 

'frue if processing cluster option 

'Set true if /share=copy 

‘set true if clusters are to be protected 


‘Ident string is delimited 
'Mask for sign bit 
'Sign bit of a re 
'Mask for right half 
age a i 
e' 
on of option 
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10c=000 Options parser PPARSE table 97308713 4 99:99:38 LINKER. SRCJLNKOPTION 
: 1 re 7 } Asbttl ‘Options parser TPARSE table’; 
: 1 4 $ : } Linker options command parsing table 
5 Hs : 1 : Sinit_state (state_table, key_table); 
: r 5 : } Parse Linker options 
3 § P 0435 1 $state (option, ((parse_filelist), tpa$_exit), 
: P 04 6 1 base_option) teas exits, 
: 324 P 0437 1 ((channels_option), tpa$_exit), 
3 5 P 04 4 1 ((cluster_option), tpa$_exit), 
3 8 P 04 1 ((collect_option), tpa$_exit) 
: P0440 1 ((dzro_min_options, tpaS_exits, 
3 8 P 0441 1 (<gsmatch_option) , tpa$_exit), 
3 9 P rk: 1 ((iosegment_option), tpa$_exit), 
; 0 P or 1 (Cisd_max_option), tpas_exit), 
: 1 P0444 1 ((protect_option), tpa$_exit), 
3 ¢ P0445 1 ((psect_option), oe exit), 
s 35 f pees 1 ((shl_option), tpas_exit), 
; 334 P 0447 1 ((stack_option), tpa$_exit) 
; 335 P0448 1 (<symbol_opt ion , tpaS_exits 
$ “9 P 0449 1 ((universal_option), tpa$S_exit), 
; P 0450 1 (Cunsupported_option), tpa$_exit), 
3; 3oe P 0451 1 ((“mage_type_option), tpa$_exit) 
; 339 P BO 26 1 ((image-ident_option), tpa$_exit), 
: 340 04535 1 (Cimage_name_option), tpa$_exit)); 
3 41 0454 1! 
3 ¢ 0455 1 ! Parse BASE option 
; 34 0456 1! 
3; 344 P 0457 1 $state (base option, 
; 345 0458 1 ("BASE')); 
: 346 P 0459 1 $state (, 
; 347 0460 1 ("=", baseop1!)); 
; 348 P 0461 1 $state (baseop!, 
; 349 Reg 1 ((parse_number), baseop2, set_base), ((errorparse_1))); 
; 350 P 0465 1 $state (baseop2, 
; 351 0464 1 (Cendline_1), tpa$_exit)); 
3 26 465 1! 
3 3 £66 1 ! Parse CHANNELS option 
3; 354 0467 1! 
; 355 P 0468 1 $state (channels option, 
3 336 r4 4 1 ("CHANNELTS')); 
s Sor P 0470 1 $state ( 
; 358 471 1 ('s', chanop1)); 
; 359 P 0472 1 $state (chanop!, 
; 360 73. «1 ((parse_number), chanop2, set_channels), ((errorparse_1))); 
: 1 P 0474 1 $state (chanope. ; 
3 § ot? ' (Cendline_1), tpa$_exit)); 
: : 7 ! Parse CLUSTER option 
3 v 8 1 $state (cluster option, 
; 6 480 1 (*CLUSTER')); 
; 368 F 1 1 $state ( 
: 9 ; 1 *s")); 
3 0 P 04 1 $state (, 
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: 371 P 04 1 ((get_symbol) sluop!. createcluster), ‘!Cluster name 
; 37 ‘is ((errorparse_{))); 

. or P 04 1 Sstate (cluopl, 
; 376 P 04 1 (tpa £08, §luop7e) ‘If that's all, then that's ok 

3 379 : 1 (*,*, cluope) ((errorparse_ 1))); 
5 7 P 04 1 $state (cluo ~ 

iy P 0490 1 (tpas_eos, cluop7a) 'If that's all, then that's ok 

; 37 P 0491 1 ((parSe_number_or _null), cluop3, setclusterbase), icluster base address 
ae, 3 1 ((err rberee., 13))F 

; 380 P 0493 1 $state (cluo 

; 381 P 0494 1 (tpa “e0s, cluop7a), !If that’s all, then that's ok 

3 ¢ Be32 1 (",", cluop4), ((errorparse_ 1))); 

3 Pp £38 1 $state (cluo 4s 

; P 0497 1 (tpaS_eos, cluop7a), 'If that's all, then that's ok 
; 385 P 0498 1 ((parSe_number_or _null), cluopS, setclusterpfcs, 'Cluster page fault cluster factor 

: 386 499 1 ((err rperse,! 13))F 

; 387 P 0500 1 $state (cluo 

; 388 P0501 1 (tpa £08, ¢ luop7a) ‘Allow mult file List 

; 389 §20¢ 1 (",", cluopé), (Cerrorparse_ 1))); 

; 390 P 0505 1 $state (cluo 6: 

; 391 P 0504 1 (tpaS_eos, cluop7a) ‘AL low nytt file List 

: 39 P0505 1 ((parse_ tuetised. ¢luop7), List of files in this cluster 

; 39 B2en8 1 eerereeres,, 1))); 

: 394 P 0507 1 $state (cluo 

, 2ve 0508 1 ((endtine_1), cluop8)); 

; 396 P 0509 1 $state yin a, 'No files in cluster option 

; 397 0510 1 (tpaS_lambda, cluop8, insertcluster)); 

; 398 P 0511 1 $state ye 

: 399 Ba1§ 1 (tpa _Cambda, tpa$_exit, clusterdone)); 

; 400 05135 1! 

: 401 0514 1 ! Parse COLLECT option 

; 40 0515 1! 

; 40 P 9318 1 $state (collect opt fon. 

: 404 0517 1 (*COLLETT 

; 405 P 0518 1 $state ( 

: 406 0519 1 ("=")); 

; 407 P 0520 1 $state (, 

; 408 P 0521 1 ((get_ symbol), collopl, set_collect), 'Cluster name 

; 409 05 ¢ 1 ((errorparse_ 1))); 

; 410 P 05 1 $state (collop 7. 

> «411 0524 1 . "gO op2) ((errorparse_1))); 

3 216 P B2 5 1 $state (collo °p : 

; «641 P 0526 1 teot ect_psect List), collop3), ! followed by a list of psects 

: 6146 527 1 ((errorparse_1)J3); 

3 «64415 P 0528 1 $state (collop3, 

: $19 ; 4 ! (tend ine 1), tpa$S_exit)); 

$ oi8 ; 1 ' ; Parse the psect List in the COLLECT option 

; 420 P 05 7 1 $state (collect _psect_list 

3; 421 P 0534 (1 ((get_symbol);> celieci, collect_psect), 'Get a psect name 
; 4 ¢ 535 1 (Cerrorparse. 1))); 
3 6 P 05 § 1 $state (colesc!. 

; ? 3 2 i .', collect _psect_list), (tpa$_eos, tpa$_exit), ((errorparse_1))); 

3 636 b339 1 | Parse DZRO_MIN option 

: 64 0540 1! 


COPTUONS Sener oot tone ORT esate gale HS 


— 


Da tal th eek ek et eh ek et ee 
, at et ee 
0 
v vv vO UVUTClUC CUCU OVUClUC OCUCY 


3 


AAO 
wr 


SELLS 
vvv 
SOOCSSOOOCOSCOOOOSOCOCOOCOO OOOO OOOOOCOOOOOOOOOOOOOOOOoOO 


~~ Vw wwe 


v 


Pp 


$state (dere Ba reef jon: 


DZRO_ 
$state (! 
(=! 4 romin1)); 
Sstate (dzrom 
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(parse number), dzromin2, set_min_dzro), ((errorparse_1))); 


$Sstate (dzromin 
, (Cendline 1), tpaS_exit)); 


Parse GSMATCH option 


$state ‘praetce of op Fjon- 
*GSMATCH 
$state ( 


“ts ")); 
$state ( 
((gsmatch_ parse_control), gsmop1), 'GSMATCH control 
((errorparse_1))3); 
$state (gs smop 

A gsmop2), ((errorparse_1))); 
$state ( ateke” 
(parse_ number ) gsmop3, set_gsmatch_maj), ‘Major id 

((errorparse_1 15); 
$state C9gmop 


$state ( smops, 
(parse_ number ) gsmop5, set_gsmatch_min), !Minor id 
(Cerrerbarse_| 195); 

$state genon: 

' 


gsmop4), ((errorparse_1))); 


(endline 1), tpa$S_exit)); 
; Parse GSMATCH match control 
$state BTN parse_ control, 
ALWAYS’, tpa$_exit, set_gsmatch_ctl, , , isd$k_matall), 
Bit AL’, tpaS exit, set gsmatch ctl, , , isd$k matequ) 
C LEQUAL , tpaS_exit, set_gsmatch_ctl, , , isd$k_matleq), 
Parse IMAGE_TYPE option 
$state Clpege type set fen. 
TAAGE yTYPE ); 
$state ( 
(Cim mage _type_parse), imageop!), ((errorparse_1))); 
$state (imagen 
onal ine - A teas. exit)); 
$state Cimage, type_ spers 
,; - tpa anthe set_image_type), ((errorparse_1))); 
: Parse IDENT option 


$state (image _ident_option 
CIE ATTETEATION’ ")5; 
$state (, 


(*s")); 


| 
SS 


((errorparse_1))); 


((parse_ number), iosegop!, set_ioseg), !Number of buffers 
aren eeran, 1)5); 
$state (iosegop 
(t tpas_eos, tpa$S_exit), !POBUFS peers is optional 
» iosegop2), (Cerrorparse_ 1))) 
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485 Pp $Sstate (, 
4 P ("| tpa$_exit, set_image_ident, . . delimited), 
487 (tpa$_ symbol, tpaS_exit, sét_image.ident, , , not delimited), ((errorparse_1))); 
489 : i Parse NAME option 
re P H tate (i ti 
state (image name_option, 
49 5 CNAME D7 
49 P $state < 
494 0 ("=")); 
495 P 3 $state ( 
$38 (get syabol), nameop|, set_image_name), ((errorparse_1))); 
49 P 061 $state (naneopt 
98 : (Cendline 1), tpa$S_exit)); 

Parse IOSEGMENT option 

1 $state ‘lope ent op tion, 

1 IOSEGMERT’ ) ) ); 

1 $state 

1 “bean 

1 $state (, 


vwvuvyv vv vv UU 
totttttatatcttttttt ttt 


CNOPOBUFS" <> 


pas. $_exit, set_pObufs, . , 1), 
isevesraavek: 1 


Parse ISD_MAX option 


MEUM —OVOVONAULSWN —OOONOUSWN—O 


Ree San-~eunduthene COOCOOCCCOCO 
SOUSORON VS sano nrunomOoSeue nro oS 
ee ee a a ed ed = do = = 2 dt 


PPV PPV PPV PV DPVDV PUPP DUP PVDUPVSUSLVST SUSU STASIS SSIS ISTITUTO SS SS 


$state ose Per 
('P tpaS_exit, set_pObufs, , . 0) 
P : $state (isd max moet yon. 
; ("ISD_MA 
P $state ( 
3 7 w")); 
Pp Hy $state (, 
((p rse_number), isdmaxop!, set_isd_max), ((errorparse_1))); 
P $3 $state Cisdnaxop! 
06 3 ((endline_1), tpa$_exit)); 
veh ; Parse PROTECT option 
P oe $state Cocotect eget jon. | 
1 644 Ay PROTE 
; P 5 $state ( 
4 ("=")); 
$e P 064 $state ( 
5 P 0648 i YES", prosegta set_protect, , , 1. 
+6 9 ("NO',” ,Protop set_protect, , , 0), ((errorparse_1))); | 
P 0650 $state (grote or! 
3 $1 endline_1), tpa$_exit)); | 
40 re ' Parse PSECT option 
41 54 1+ | 


12 
Lis POQCOPT IONS Linker options parser Ig-5e -1984 00:22: AX-11 Bliss-32 V4.0-74 
vO4 Option sorser PP ARSE table =8ep-19 4 99:94:36 LINKER. SRC ILNKOPTION.B 2;1 


s 
; & P > ] Sstate (psect option 
; 54 $ 1 (*PSECT_ATTRIBUTES')); 
> 544 P 1 Sstate ( 
; 545 6 § 1 ('=")); 
: re P 06 1 $Sstate ( 
; 54 P 0660 1 ((get_symbol) pscopl. createpsect), 'Psect name 
; 548 eA ((errorparse_{))); 
; 549 P 06 ¢ 1 Sstate (pscopl, 
; 29 " 7 ! ats nate’ pscop2), ((errorparse_1))); 
3 state (pscop2, 
; 2g 665 1 Cipsect_parse_attribute), pscop3)); 'Followed by a List of attributes 
3 22 P 06 ] Sstate (pscop5, 
3 4 P 1 (",", pscop2), ! separated by commas 
3 329 P 0668 1 (tpa$_eos, tpa$_exit), ‘Quit at end of Line 
3 2 ? 3 : : (Cerrorparse_1)3); 
3 228 por) ! Parse PSECT option attributes 
; 560 P $678 1 S$state (psect_parse_attribute, 
: 561 P 0674 1 (*ABS* tpaS_exit, set_pscatrib, , , (( not gps$m_rel) and rh_mask)), 
: 268 P 0675 1 ("REL,', tpaS_exit, set_pscatrib, . , gpssa_r ), 
3; 36 P 0676 1 (‘CON', tpaS_exit, set_pscatrib, . , (€ not gps$m_ovr) and rh_mask)), 
; 564 P +44 1 (‘OVR', tpa$S_exit, set_pscatrib, , , gosta. ovr? 
; 565 P 0678 1 ("EXE’, tpaS_exit, set_pscatrib, , , ‘gps$m_exe or gps$m_rd)), 
; 566 P 0679 1 ("NOEXE’, t a$_exit, sét_pscatrib, - « (C not gps$m_exe) and rh_mask)), 
; 567 P Beee 1 ("GBL', tpaS_exit, set_pscatrib, , , aac gbl 
; 568 P 0681 1 ("LCL', tpa$_exit, set_pscatrib, , , (¢ not gps$m_gbl) and rh_mask)), 
; 569 B pong 1 (*"LIB', tpa$_exit, set_pscatrib, , , gpssn Lib) 
; 570 P 06835 1 ("USR', tpa$_exit, set_pscatrib, , , (( nof gpsSm_lib) and rh_mask)), 
3 Sry P 0684 1 ("PIC’, tpaS_exit, set_pscatrib, , , gps$m_pic), 
: 372 P 0685 1 ('NOPIC', tpaS_exit, set_oscatrib. . , (( mot gps$m_pic) and rh_mask)), 
3 OF P 0686 1 ("RD', tpa$_exit, set_pscatrib, , , gps$m_rd), 
; 574 P se 44 1 (*NORD', tpas_exit, sét_pscatrib, » « (C not gps$m_rd) and rh_mask)), 
; Sf P 0688 1 ("SHR', tpa$S_exit, set_pscatrib, , , gps$m_shr), 
; 576 P 0689 1 ("NOSHR', t a$_exit, sét_pscatrib, + « (C not gps$m_shr) and rh_mask)), 
3 Ser P 0690 1 (‘WRT', tpaS_exit, set_pscatrib, . , (gps$m_rd or gps$m_wrt)), 
3 ore P 0691 1 (*NOWRT®, tpas_exit. set_pscatrib, » « (C ndt gps$m_wrt) and rh_mask)), 
3 of P 0696 1 ("VEC’, tpaS_exit, set_pscatrib, , , gps$m_vec), 
; 580 P 0695 1 (*NOVEC’, tpas_exit, set_pscatrib, - « (C€ not gps$m_vec) and rh_mask)), 
; 581 P 0694 1 ("BYTE', tpa$_éxit, set_pscatrib, , . (0 or sign_bif)), 
3 286 P 0695 1 (‘WORD', tpa$_exit, set_pscatrib, , , (1 or sign_bit)), 
; 38 P +24) 1 ("LONG', tpa$_exit, set_pscatrib, , , (2 or sign_bit)), 
: 584 P 0697 1 ("QUAD', tpa$_exit, set_pscatrib, , , (3 or sign_bit)), 
3 384 4 5234 ! (*PAGE', tpa$_exit, set_pscatrib, , . (9 or sign_bit)), 
; aH 4 8700 ! Allow alignment to be specified numerically also 
: 589 P 0708 1 ('0", tpa$_exit, set_pscatrib, , . (0 or sign_bit)), 
; 590 P 07 1 ("1', tpa$_exit, set_pscatrib, , , (1 or sign_bit)), 
3; P 07 1 Ogee tpa$_exit, set_pscatrib, , . (2 or sign_bit)), 
3 236 P fi .<s ('35*, tpa$_exit, set_pscatrib, , ,. (3 or sign_bit)), 
3 444 4 ] : ("9", tpa$S_exit, set_pscatrib, , , (9 or sign_bit)), ((errorparse_1))); 
: i e 3 : Parse SHL_EXTRA option 
; 39 P 0710 1 $state (shl_option 
; 598 711 1 (*SAL_EXTRA')); 
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; 599 PO712 J Sstate | | 
; 713 1 {"=")); 
$3) r ar i — ee ber), shl1, set_shl), (¢ 1))) | 
° arse_numbder), §$ ° . ; 
: 6 PO718 1 Sstate (shit, ae ner pesto dig 
: obe 4 : ' (Cendline_1), tpa$_exit)); 
; 60 n9 ' ; Parse STACK option 
; 608 P 0721 1 $state (stack option, 
; 609 7 1 ('STACK")); 
: Si 652 bee Coy 
; ig : 14 3 i “ecigpe Ce ber) tackop1 t_stack), (¢ 1))) 
3 arse_number), sta . ‘ 3 
; 614 P 07 $ 1 $state (steckop “oe eee ariel, 
; oi? Bf 3 ! (Cendline_1), tpa$_exit)); 
; ei 07 0 ; Parse SYMBOL option 
> 619 P 07 : 1 $state (symbol option, 
; 620 07 1 (*SYMBOL')); 
: ? 1 e 44 3 ! $state “ten3)5 
e38 p $7 $ : rect ae t bol) bolop1, defi bolname) 'Symbol 
3 et_symbo symbolop1, defines P ! 
635 0738 1 (lerrorperse.i))3;. es Aches ai 
; 626 P 0739 1 $state (symbolop1, 
; 627 0740 1 (",", symbolop2), ((errorparse_1))); 
; 628 P 0741 1 $state (symbolop2, 
; 629 P 544 1 ((parse_number), symbolop3, definesymbolval), ! and symbol value 
; 630 0743 1 ((errorparse_1)5); 
; 631 P 0744 1 $state (symbolop3, 
: O36 Bre? : (Cendline_1), tpa$_exit)); 
; 634 Or? i Parse UNSUPPORTED option 
: 636 P0749 1 $state (unsupported option, 
BOR Pad LE MP a cectneliats 
3 639 O73¢ 1 ('=', unsuppop1)); 
; 640 P 07535 1 $state (unsuppop!, 
: 641 0754 1 ((parse_number), unsuppop2, set_unsupported), ((errorparse_1))); 
: ong P 3 1 $state (unsuppope . 
: oh 238 : (Cendline_1), tpa$_exit)); 
; 645 38 Parse UNIVERSAL option 
; bao P 0760 1 $state (universal option, 
: rk: P 78) : $state Cen mn 
: 650 ores ("=")); | 
; 651 P 0764 1 $state ( ; 
; $36 199 : ((parse_univ_symbols), tpa$_exit)); ‘List of symbols to universalize 
3 $28 ror ' Parse the symbols in the UNIVERSAL option | 
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ions parser TPARSE table Sep-19 
3 P 07 1 Sstate (parse_univ_symbols, 
; g § P 07 i 1 Cre srsunTve)., 
; 658 771 «1 ((get sysbol), prsunivi, set_universal), ((errorparse_1))); 
3 3 Pp ae: 1 $state (prsunivi, 
3 0 P0775 1 (",", parse univ_symbols) 
; 661 P0774 1 (tpa$_eos, Epa$_exit), ‘duit at end of string 
; 66 775 «(1 ssorrergerse.t2703 
: 66 P re 1 $state (prsunived, 
3; 664 P0777 1 (tpa$_eos,prsuniv3), 
; 665 ve 1 ((errorparse_1))); 
5; © P 0779 1 $state (prsuniv3, 
3 rot 4 f ° \ ; (tpaS_lambda, tpa$_exit, set_alluniv)); ! Flag all universal temporarily 
: 669 7 ¢ 1 ! Parse a comma-separated file List 
; 670 4 1! 
; 671 P 0784 1 $state (parse_filelist, 
3; 67 0785 1 ELS ec parsefli, , , filespec_desc)); 'Do a file specification 
; 67 P 07 1 Sstate (parsefli, 
; 674 P 0787 1 ('_", tpa$_fail), 'Return failure if underscore, that is part of option 
3 Of P 0788 1 ' syntax. 
; 676 P 0789 1 (‘=", tpa$_fail) ‘Return failure if it looks Like an option 
; 677 P 07 1 (",*, parse_filelist, processfile), ‘Process comma-separated List 
: 678 P0791 1 ('/", parsefl2), ‘Process qualifiers 
; 679 P 3454 1 (tpa$_eos, tpa$_exit, processfile), ‘Quit at end 
; 680 0793 1 ((errorparse_1))); 
; 681 P 0794 1 $state (parsefl2, 
3 oss P0795 1 (Cinclude qual), parsefl3, set_include, , , (fdb$m_shr or fdb$m_option or fdb$m_selser)), 
; 68 e p76 1 ("LIBRARY® perset ioe set_library, , f b$m_shr or fdb$m_option or fdb$m_selser)), 
; 684 P 0797 1 ("SELECTIVE EARCH’, parsefl3, set_selective, 7 (fdb$m_option or fdb$m_libr)), 
; 685 0798 #1 ((share qual), parsefl3, set_shareable, , , (fdb$m_libr)s, ((errorparse_T))); 
; 686 P 0799 1 $state (pars . 
3; 687 P 0800 1 ("/*, parsefi2), 'Process all qualifiers 
; 688 0801 1 (tpaS_lambda, parsefl4)); 
; 689 = ban$ 1 $Sstate (parsefl4, 
; 690 P 0805 1 (*,*, parse filelist, processfile), ‘Comma means more files 
: 691 P 0804 1 (tpa$_eos, tpa$_exit, processfile), ‘Exit at end of string 
3 4 pepe : (Cerrorparse_1)3); 
; 694 0807 1 ! Detect and check general file specification 
; 695 808 1! ‘ 
; 696 P 0809 1 $state (filespec, ! General file spec check 
; 697 0810 1 ((nodespec), fil0), (tpa$_lambda, fil0)); 
; 698 P 0811 1 $state (fil0, 
3 +43 P oats 1 ((devname), fill) 
; 700 13 1 (tpas_lambda, fil{)); 
; 701 P baie 1 $state (fill, 
; P 0815 1 ((direct), fil2) 
: 70 B16 (tpa$_lambda, fi(2)); 
; oe P 0817 1 $state (fi 
; 705 18 1 (tpa$_symbol)); # 
; oe P 0819 1 $state (, : . 
; wv P 0 1 pctyee?. fil3) ! Check for type and version 
; 708 ‘os (tpa$_lambda, fil3)); 
; 709 P § 1 $state (fil5, . : 
3 710 P 1 ((version), tpa$_exit), : 
3 7ii 4 1 (tpa$_lambda, tpa$_exit)); 
. oe 0825 1! 


rave ROCOPTIONS ber ton options parser 
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Sep-19 4 ¢ 99:69:36 AX-11 Bliss-32 V4.0 


LINKER. SRC [NKOPTION. : 2;1 


first node spec 


foe ery to A ag more 


for on 
but if we don’ t get one, the exit successfully with the one 


! Check for access control 


! Look for end of access control 


! Second colon delimiting node spec 
! Must terminate the node spec. 


Check for uic directory name 


Allow = 
Allow C.sub.sub] 


Loop for another directory name 


ons parser TPARSE table -Sep-1984 
5 a § yj ' Recognize node name (with optional access string) 
3; 715 7 3 1 dotete (nodespec 
: at 1 ((nodel). node0)); ! Get the 
Re P 0830 1 $state (node i 
s 718 P 0831 1 ((node1), node0), i 
; 719 08 ¢ 1 ‘thas. Lambda, tpas_ exit)); i 
: 720 P 4 1 $state (no 
: 721 0834 1 (tpas symbol); 
SE ¢ P 0835 1 $state ( 
7 0836 1 (':", mode3), ('''")); 
; 224 P BB ¢ 1 $state (noded, 
s 725. & 8 6 1 ("*"* node4) 
; 726 P 0839 1 (tpa$_ eos tpas fail), 
: 727 P 0840 1 (":" “tpa$_fa 
; 728 0841 1 (tpa$_ any, ~node25):; 
3 C44 P 94) 1 $state (node3> 
s 0 0845 1 ("':", tpa$_exit)); ! 
: 731 P pate 1 $state (node 
: a3 0845 1 eR" s *“node3)); ! 
. 7s 0846 1! 
> 734 0847 1 | Recognize device name 
3 755 0848 1! 
; 736 P 0849 1 $state (devname, 
Be ri 0850 1 (tpa$_symbol)); 
; 738 P 0851 1 $state (, 
; 739 tt 1 (':", tpa$_exit)); 
; 760 0853 1! ; 
3: 741 0854 1! Recognize directory 
; reg 0855 1} 
: 76 P 0856 1 $state (direct, 
: 744 P 0857 1 css 
: 745 0858 1 ('C')5; 
; 746 P 0859 1 $state (, } 
3; 747 P 0860 1 ((ufd), dir2), : 
: 748 0861 1 ((dirsub))); ! 
3; 749 p Bees 1 $state (dir2, ! 
3; 750 P 0863 1 (rr. tpa$_exit) 
: 751 0864 1 ("}"; tpa$texit)); 
3 P3¢ 0865 1! ° 2 
; 0866 1 | Recognize string directories and subdirectories 
3; 6754 9867 1! 
3 755 P 0868 1 $state (dirsub, ! 
: £36 P B56 1 (tpas_ ayabol dirsub1), ‘ 
. P 0870 1 We Ra ! 
, 38 Bae s 1 girsubl> ! 
: 759 Pp 1h 1 $state (girsuBl ' 
: 760 P 0873 1 “ dirsub), ! 
3; 761 baoe 1 itped, louie “tpas_ exit)); 
: 76 875 1! 
; 76 Bars 1 | Recognize ufd directory format 
: 764 0877 1: 
> Pee P 0878 1 $state (ufd, ' 
: 166 + t44 1 (t tpas_ octal)); ! 
: 76 P 0880 1 $state (, ! 
; 768 tt 1 ae |e 
; 769 2 2 1 $state (, ' 


vO 
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Options parser TPARSE table “Sep-19 LINKER.SR 
; 770 7 (tpa$_octal, tpa$_exit)); 
PF BE 11 aecome te 
; ! Recognize e e 
: One O88 1 , dss 
: 774 P 0887 1 $state (type 
; 775 0888 1 (oS); i 
: 776 P 0889 1 $state ( ! 
: 777 P 0890 1 (tpa$_string, tpa$_exit), ! 
3; 778 P 0891 1 (tpa$_blank, tpa$_exit) 
; 779 089¢ 1 (tpaS-lambda, tpaS_exit)); 
; 780 0895 1! 
; «781 Bae 1 ! Recognize file version 
; re 895 1! 
; 78 P 0896 1 $state (version, : 
3; «784 0897 1 "s")d5 ' 
s es P 0898 1 $state (, 
: 786 P 0899 1 (tpa$_decimal, tpa$_exit), ’ 
; 787 P 0900 1} (tpa$_blank, tpaS_exit) 
; 788 0901 1 (tpa$_lambda, tpaS_exits); 
; 789 0902 1! 
; 0905 1 ! Parse a number or a null field 
3; 79 0904 1! 
; 7 P 0905 1 $state (parse_number_or_null 
; 79 P 0906 1 ((parse_number), tpa$ exit), 'ALL ok if number : 
> 794 0907 1 (tpa$_lambda, tpa$_ex7t)); ! or else nothing 
: 795 0908 1! : 
; 796 0909 1 ! Recognize number 
; 797 091 1! 
; 798 P 0911 1 $state (parse_number ! : 
; ty P0912 1 feed decimal, tpa$_exit), ! Decimal number 
; 800 0913 «1 ('X")3; ' Base prefix 
; 801 P 0914 1 $state (, ' : ‘ 
; 802 P0915 1 ("D', decnum), ' Decimal base designator 
; 803 P0916 1 (*X", hexnum), ' Hex base designator 
3 804 0917 1 ('0°S); i Octal number 
; 805 P 0918 1 $state (, é : 
; 806 0919 +1 (tpa$_octal, tpa$_exit)); ! Introduced octal number 
; 807 P 0920 1 Sstate (hexnum ! Introduced hex number 
; 808 0921 1 (tpa$_hex, tpa$_exit)); i Hex number 
: 809 P O35§ 1 $state (decnum, ; ! Introduced decimal number 
; 810 0923 i (tpa$_decimal, tpa$_exit)); 
; «811 bose 1! may. 
§ sig 0925 1 ! Parse INCLUDE qualifier 
; 3 bass | 
; 814 P 09 1 $state (include qual, 
; 815 0928 1 ("INCLUDE"); ' Include 
; 816 P oa 94 1 $state (, . 
; 817 P 0930 1 ((qualvalsep), incl1), ‘Followed by ‘=' or ':' 
; 818 0931 1 ((errorparse_{))); ! or its an error 
; 819 P O36 1 $state (incl1, é 
: 820 P 0935 1 ("(*, include_list), | _ tif a left parens 
; 821 P 0934 1 ((get_symbol) tpes_exit, » « include_desc), ! or a symbol then ok 
3 Hs O33 ! ((errorparse_1))); ! otherwise an error 
3 $57 0337 1! Parse a list of symbols enclosed in parens 
; 825 + ae . ; 
; 826 P 0939 1 $state (include_list, 
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200000000 
Dat et et et ee 
ws - 
sn - 
pejejlelelelealeleleleloloalo) 
OOOOOOOOOOOOO 
HAMAS & 
DONA ULSWAR OO OnNO 


SESS SSSOSOSOaeee 
MAA AATUIVIUNUT ES 


aon 
WN —"ODCONAUSWN —OOONO 


Foo. 


dD 13 

parser Ig-se 

ms parser TPARSE table -Sep-19 

((parse_include_list), incl2, , , include desc)? : 
$state (incl2, 


(")", tpa$_exit) 'Followed oy a right parens 

(Cerrorparse_1))5; '“or a syntax error 
$state (parse_include_List 

((get_symbol) inc(3), !Get one symbol 

((errorparse_1))); ! or an error 
$state (incl3, 3 

(",", parse_include_list), 'Go for more if a comma 

(tpa$_ ambda, tpa$_exit)); ‘otherwise return 
} Parse /SHARE qualifier 
$state (share pat 

("SHAREABLE', , set_shrcopyflag, . , 0)); 'Zero flag 


$state ( 
((qualvalsep), parseshareval), 

(tpa$_lambda, tpa$_exit)); 

$state (parseshareval, 

: (*COPY', tpa$_exit set shrcopy ten. oe V9 

("NOCOPY', tpas_exit, set_shrcopyflag, . , 6), ((errorparse_1))); 


Parse a symbol, which may include periods (.MAIN.) 
$state (get symbol. 


» , getsymi), 'Make sure we get at least one character 
(tpa$_symbol, geteyal) ay 
(tpa$_lambda, pa$_fail)); 'Fail if not at least one character 
$state Cogt gyal. 
*.", getsym1), 


(tpa$_symbol, etsyml), 
(tpa$_lambda, tpa$_exit)); 


Check qualifier and value separator 


$state (qualvalsep, 
*:', tpas_exit) 
("=") tpa$Stexit)); 


' 
Try to parse something and then call the error routine 


$state (errorparse_1, 

(tpa$_eos pig poh nok 
(tpa$_sym n Sage syntaxerr), 
(tpa$_string, , syntaxerr), 
(tpa$_any, , syntaxerr), 
(tpa$~ lambda, . Ssyntaxerr)); 


Check end of Line conditions 


$state (endline_1, : ; 
(tpa$_eos, tpa$_exit), !End of string is a good exit 

(tpa$_symbol, » syntaxerr), ‘Else try to get a symbol 
(tpa$_string, , syntaxerr), 'Else try to get a strin 
(tpa$_any, , syntaxerr)); 


ee ce ce eh ee el el ee ee ee cl ee el cl ee el el eel el el ee ee el ee el eel el el cl ee el el ee 
- - _— 


SHOE Q0E:SS Uttalb Pde aM 


‘Call the routine and store the descriptor 


A) 
: or anything to flag as error 
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3 et 236 } %sbttl ‘readoption - Read record from options file’ 
3 Hy] p44 ! routine readoption (linedesc, errorsignal) = 
; 888 1000 1 ! This routine reads and returns to the caller in Linedesc the 
; 889 1001 1 ! next record of the options file. If end of file is detected, then 

; 890 1 o¢ 1! one of two things can happen. If the errorsignal argument is 

; 891 1005 1! supplied. then the error is signaled. If it is not supplied, 

; 89 1006 1 ! rms$_eof is returned to the caller. 

; 89 1005 1! 

> 894 1006 begin 

; $32 bf map 

; 896 1008 Linedesc : ref bblock; 

; 897 1009 builti 

; 898 1010 nul lparameter; 

; 899 1011 local 

; 900 a status 
; 901 101 blocksize, 
; 308 1014 blockaddr : ref bblock; 
; 90 1015 
: 904 1016 2 status = $get (rab = .optrabadr); ‘Read the record 
; 905 1017 § Linedesc ‘ sc$w_length]_ = .optrabadr Crab$w_rsz]; ‘Return it to caller 

3 308 a 4 5 Linedesc [dsc$a_pointer] = .optrabadr Crab$l_rbfJ; 

; 908 1020 if .status 'If a successful read 

; 909 1021 then begin 

: 910 1s6 if -lnk$gl_ctlmsk Clnk$v_verify] ‘Echo Line if SET VERIFY 
; 102 and not .lnk$gl_sysinput_flag t!and not SYSSINPUT 

; oi¢ ies ; then LibSput_oufput (.linedesc); 

: 914 1026 3 blocksize = oeb$c_size + .linedesc Cdsc$w_length]; ares size of block to allocate | 
; 915 1027 3 ink$alloblk (.blocksize, blockaddr); ‘Allocate it 
; 916 1028 3 blockaddr oebsl_nxtoeb = 0; | 
; 917 196) 3 blockaddr Loeb$w_bytcnt] = . Linedesc Cdsc$w_length); 'Set size of Line into descriptor 

; 918 1030 3 ch$move (.linedesc Cdsc$w_length] ' and copy out the text 

; 919 1031 ; ~-linedesc Cdsc$a_pointer] 

; 920 1936 . blockaddr Coeb$t_text]); : : 

: 921 103 ink$gl_optexte Coeb$l_nxtoeb] = .blockaddr; ‘Link the block into the end of the List 

3 os¢ 1034 ink$gl_optexte = .blockaddr; ! and make it the Last one 
3 3S 1035 end 

: 924 1036 else begin 

3 Yeo 1037 : 

: 926 1038 3 ! An error occurred on the read 

; SH 1039 ; : Ay , 

; 928 1040 if .status eql rms$_eof !If this is end of file 
3 868 1041 4 then begin . 

; 930 Hk 4 if not nullparameter (2) a ! and atenet code supplied 
; 931 1045 4 then signal (.errorsignal, 1, .optionfilename ! then signal it (eof not expected) 

; 836 1044 4 -Status, .optrabadr Crab$l_stv] 
3 oe 1045 4 j; | 
3; 934 1046 4 end lyhay: : ; 

; 935 1047 else signal_stop (lLin$_readerr, 1, .optionfilename !Not eof, signal the read error and give up 

; 9 1048 status, .optrabadr Crab$l_stv] 

: 9 1049 j; 

; 938 1050 end; 

; 939 1051 

: 940 1052 


return .status | 
| 
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4F 
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41 
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4C 


52 


4D 


57 


41 


48 


4C 


4F 


5A 


53 


4C 


i Sent 98e 98:99:5 


«TITLE 
- IDENT 


-PSECT 
00000 ; TPASKEYSTO 
U.78: BLK 
00000 sipAsxevét 


0.80: ASCII 
0004 E 
0005 inpaerev ant 
00006 ; TPASKEYSTO 
U.99: BLK 
00006 ; TPASKEYST 
U.101: .ASCII 
QO00E .BYT 
GOOOF ; TPASKEYFILL 
U.103: .BYT 
00010 ; TPASKEYSTO 
U.117: .BLKB 
00010 ; TPASKEYST 
U.119: ASCII 
00017 BYTE 
00018 ; TPASKEYFILL 
U.121: .BYTE 
00019 ; TPASKEYSTO 
U.190: .BLKB 
00019 ; TPASKEYST 
U.192: .ASCII 
00020 BYTE 
00021 ; TPASKEYFILL 
U.194: BYTE 
00022 ; TPASKEYSTO 
U.231: .BLKB 
00022 ; TPASKEYST 
U.233: .ASCII 
0002A BYTE 
0002B ; TPASKEYFILL 
U.235: .BYTE 
0002C ; TPASKEYSTO 
U.249: .BLKB 
0002C ; TPASKEYST 
U.251: .ASCII 
00033 BYTE 
000 A ekg 
U.253: .BYTE 
00035 ; TPASKEYSTO 
U.289: .BLKB 
00035 ; TPASKEYST 
U.291: .ASCI 
00032 B BYTE 
C ; TPASKEYSTO 
U.297: .BLKB 
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54 4E 45 4D 
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55 
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53 
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0003¢ ass KEYST 
: ASCII 


SEE) reapers 

42 ;TPA KEYSTO 
0.305: .B 

00042 ; TPASKEYST 


G.307: “ASCII 
Mit jTRASKEVE ILL 
31 YTE 
0004A UF PASKEYETO 
U.316: .BLKB 
OO04A ; TPASKEYST 
U.318: .ASCII 
00054 BYTE 
00055 ; TPASKEYFILL 
U.320: .BYTE 
00056 ; TPASKEYSTO 
Us 358: -BLKB 
00056 ; TPASKEYST 
U.334: “ASCII 
00059 YTE 
O005A ; TPASKEYFILL 
U.340: .BYTE 
0005B ; TPASKEYSTO 
U.341: .BLKB 
0005B ; TPASKEYST 
U.343: .ASCII 
00069 BYTE 
OO06A ; TPASKEYFILL 
U.345: .BYT 
0006B ; TPASKEYSTO 
U.359: .BLKB 
0006B ; TPASKEYST 
U.361: .ASCII 
O006F BYTE 
00070 ETeAEKeve TUL 
U.363: .BYTE 
00071 ; TPASKEYSTO 
U.375: .BLKB 
00071 ; TPASKEYST 
U.377: ASCII 
0007A BYTE 
00078 pTEASKEVE Itt 
U.379: .BYTE 
OO07C ; TPASKEYSTO 
U.395: .BLKB 
0007C ; TPASKEYST 
U.397: .ASCII 
0008 BYTE 
0008 reaeKevety 
U.403: .BLKB 
00083 ; TPASKEYST 
U.405: ASG]! 
SORE 1 ATEARReve tty 
413: .BYT 
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\IMAGE. TYPE\ 


“1 


Sener 
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ESSE CERT 


-1 
0 
tour s\ 
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\HOPORUF S\ 
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58 41 4D SF 44 


54 43 45 54 4F 


53 


45 54 55 42 49 52 54 54 41 SF 54 43 45 


53 


2c 4C 


4E 


52 


45 


53 


52 


45 


4F 


53 


42 


45 


4F 


56 


58 


00080 ; TPASKEYSTO 


0.414: .BLKB 
00080 ;TPASKEYST 
: ASCII 


-BYTE 
80088 gies KEVFILL 
00096 WA rug 
0.430: 
eaced | 


9090 © 
OO9E ; 


0009F 
0009F 


QO0A 
QOOAS ;T 


-BL 
000A3 S TPASKEYST 
447: ASCII 

QO0AS 


BYTE 
000A6 s TPASKEYFILL 
U.455: Y 
000A7 + TPASKEYSTO 
v. -BLKB 
000A7 ; TPASKEYST 
U.461: .ASCII 
00086 
00087 BYTE 
00088 ; TPASKEYFILL 
v. BYTE 
00089 ; FPASKEYETO 
000B9 ; TPASKEYST 
U.490: .A 
000BC -BY 
QOOBD ; TPASKEYSTO 
U.496: 
OOOBD ; 


00C1 .BY 
00C2 ; TPASKEYSTO 
0.504: .BLKB 
000C2 ; TPASKEYST 
0.506: .ASCII 


BY 
b00Ke ; ; TPASKEYSTO 


v. ¢: LK 
000C6 ; TPASKEYST 
000 U.514: “Boelt 


co B 
OOOCA ; TPASKEYSTO 
U.520:  .BLKB 
OOOCA TTPASKEYST 


c-: ce. ez. 
—:s —t 
i) pURUED 


I] 
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FF 


4E 
FF 


47 


4E 
FF 


if Sep-1964 90:22:56 


U.522: .ASCII 


-ASCII 
-BYTE 

; TPASKEYSTO 
0.560: .BLKB 

000EO ; TPASKEYST 

0.562: ASCII 

Q000E3 BYT 

000E4  TPASKEYS10 
U.568: .BLKB 
QO0ES ; 


Q000E7 
QO0ES ; 


000E8 


QOOED 
QOOEE ; 


OOOEE ;7 


000FO 
OOOF1 ; 
6.592: 


-BLK 
OOOF1 ;TPA KEYST 
OO0FS BYTE 
OOOF6 ; TPASKEYSTO 
U.600: .BLKB 
OOOF6 ; TPASKEYST 
U.602: .ASCII 
poor .BY 
OOFA Wt rll 
OOOFA ; Wty wedi 


acti! 
OO0F F -BYTE 
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43 45 
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47 
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52 54 58 45 SF 


54 52 57 
FF 


57 4F 4E 
FF 


43 45 56 
FF 


56 4F 4E 
FF 


54 59 42 
FF 


52 4F 57 
FF 


4E 4F 4C 
FF 
41 55 51 


47 41 50 


4C 48 53 


00100 
00100 ; 


U.6 
Sole ; 


00109 
0010A 


0010A 


00100 
0010€ 


0010€ 


00113 
00114 


00114 


00118 
00119 


00119 


0011D 
OO11E 


OO11E 


0012 
0012 


00123 
00127 

00128 
00128 
Ootgs 

0012D 
0012E 
0012E 


00136 


00139 ; 


CE 


Sep-19B4 20:14:29 


; TPASKEYSTO 
-BLKB 
; TPA KEYST 
: “aoe 


.BYT 
; TPASKEYSTO 
0.624: gGLKB 


x 
m 
~< 
nm 


cCe- Ce. 
—-« — 
oe Fe ee 
mm 
< «< 
qe Ue 
+040 
oO 


ce- Ce. 

os «te 

oe FE ee 
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= — o 
ov ovo v OVC U oOVOU OVO U oO 


pa Crow yt tor 4 MeO LOLS O&O 
m 
~< 
nn 
=Q 
oO 


Ce- Ce. 

° «te 

oe Fe ee 
m 


-B 
Wt ley 
; TPASKEYST 
U.674: ASCII 
-BYT 
ZTPASKEYSTO 


TTPASKEYST 
0.682: .ASCII 


-BY 
; TRASKEYF ILL 
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43 52 41 45 53 SF 45 56 
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GF 


F 
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“awn 
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U.734: “Sota 


oor ;TeaskeviiLt 
0.7 BYTE 

00140 ;TPA KEYSTO 
0.748: .BLKB 

00140 ; TPASKEYST 
6.750: ASCII 


00148 ; TPASKEYSTO 
b.776:. -BLKB 
00148 : fpasKesT 


U.778: 
00155 “BY E 
00154 ,TBASKEYFILL 
780: YT 
00155 ; = tPAsKevsTO 


U.79 LK 
00155 ; TPASKEYST 
0.796: ASCII 


0015E .BYT 
0015F j TOGSKEvE ttt 
00160 ; TPASKEYSTO 
U.857: .BLKB 
00160 ; TPASKEYST 
U.859: .ASCII 
00167 BYTE 
00168 ; TPASKEYSTO 


v. -B 
00168 : TPASKEYST 


U.867: .ASCII 
00177 © 
00178 BYTE 
00179 ; TPASKEYFILL 
U.882: .BYTE 
O017A ;TPASKEYSTO 
U.1025: .BLKB 
0017A ; TPASKEYST 
U.1027: .ASCII 
00181 BYTE 
00182 peasee rath 
U.1029: .BYTE 
00183 ; TPASKEYSTO 
U.1066: .BLKB 
00183 ; TPASKEYST 
U.1068: .ASCII 
018C BYTE 
018D ; TPASKEYFILL 
U.1073: .BYTE 
0018E ; TPASKEYSTO 
U.1080: .BLKB 
OO018E ; TPASKEYST 
U.1082: .ASCII 
00194 BYTE 
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FF 


19F8 
0000* 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000+ 
FFFF 
19F8 
0000+ 
FFFF 
19F8 
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00195 § eAsgeve att 
-1090: .BYTE 


»PSECT 


00000 STATE_TABLE:: 


-BLKB 
8 000 4h} .BLKB 
000 ; YPE 


00002 ; PASSUBEXP 
00004 ; TPASTARGET 
00006 ; Usa tery YPE 
00008 G8 sunt 
0000A » TPASTARGET 
0000¢ 

0000E 

00010 
00012 ; 
00014 
00016 
00018 
O001A 
0001¢ 
0001€ 
00020 
00022 ; 
00024 
00026 
00028 
0002A 
0002C 
0002€ :TBASTARGET 
00030 Y iPASTYPES 


ad 
per 
~< 
wv 
m 


Cee Cee Cee Cee Cee 
ate 
WOM VM VM DN UMN DUM TUN UN 0 0 0 0 OS OS OO OO 
NFOFOFHPS SNS HSVS—FOPHOPISSOSHLSUSVSOD- 
ee oe se . ee o oe Goose Goose Goes Geos GPee o ee oo ee 
=—~ = On + = 
< > ce <x Pb 
v7 za oO UD DW 
mie Gye Me | Gave 
me =< m 
4300 = 


ce. 
co —te —te —de =e —de 


$SUBEXP 


Sage ror: cer- Ce. 
wv 
> 
“A 
mn” 
Cc 
wo 
m 
cx 
wv 


-LIBSSTATES,NOWRT, 


6648 
<<U.3-U.4>=2> 
-1 

6648 
<<U.7-U.8>-2> 
-1 

6648 
<<U.11-U.12>-2> 
-1 

6648 
<<U.15-U.16>-2> 
-1 

6648 
<<U.19-U.20>-2> 
-1 

6648 
<<U.235-U.24>-2> 
-1 

6648 
<<U.27-U.28>-2> 
-1 

6648 
<<U.31-U.32>-2> 
-1 
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0000+ 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000+ 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000* 
FFFF 
19F8 
0000+ 
FFFF 
19F8 
0000+ 


ir BE 90:99:58 


U.34: WORD 


00032 v FPASSUBEXP 
00034 TBABTARGE! 
00036 ; TPASTYPE 

00038 ; TPASSUBEXP 
OOO3A : TPASTARGET 
0003¢ 
0003E ; 
00040 
00042 ; 
00044 
00046 
00048 
0004A 
0004¢ 
0004E 
00050 ; 
00052 ; 
00054 
00056 
00058 
0005A 
0005¢ xP 
QOOSE ; TPASTARGET 
00060 si BASTVPE 
00062 ; TPASSUBEXP 
00064 Dees TaRGeS 
00066 eee wpe 


U.70: wo 
00068 ; TPASSUBE 


TPASTYPE 
$suBEXP 


ce. 
—e —e —te 
wn 
“ 
> 
@ 
Gre 
m 
“4 


$TYPE 


ce- ce. ar 
—e —de —te 
ad bad 
4 ow 
“<< Cc 
@ 
m e (Te 
ont 
v 


ce. 
bad 
an” 
Cc 
o vu 
m 
Poa 
vw 


“ce 


ce 
—e —de 
wn 
o 
> 
»@ 
* Gye 
=m 
~ 


ce: 

Bx be he be bebe ne ee 
Poe Pee or o oe Ge o . oe 
anol “+ 

ce > 

o v z 

<x m a 

m 

vw _ 


eee 
Se5 AVA VORVNVNVN DNDN DNDN UR UP UR URURUR 


Srancer 
R 


an: 
“4 
< 
uv 
rie 


T 


ay ey ty ty ey 34 
4 
~< 
wv 
m 


0.41:  .WORD 
WORD 


.WORD 
: TPASSUBEXP 


EXP 
0.72: WORD 


6648 


<<U.35-U. 


1 
6648 


<<U.39-U. 


-1 
6648 


<<U.43-U. 


-1 
6648 


<<U.47°U. 


-1 

6648 
<<U.51-U 
1 

6648 


<<U.55-U. 


1 
6648 


<<U.59"U. 


-1 
6648 


<<U.63-U. 


-1 
6648 


<<U . 67-U . 


o1 
6648 


<<U.712U. 


36>=2> 


40>-2> 


44>-2> 


48>-2> 


-52>-2> 


56>-2> 


60>-2> 


64>-2> 


68>-2> 


72>=2> 


AX-11 Bliss-32 V4.0-7 
LINKER. SRCJLNKOPTION. 2 231 


COPTIONS Linker options parser 
readoption = Read record from options file 


FFFF 
1DF8 
0000+ 
FFFF 


0500 
143D 
0000+ 


99F8 
0000* 
00000000v 
0000+ 
ODF8 
0000* 


10F8 
0000* 
FFFF 


0501 
143D 
0000+ 


99F8 
0000+ 


.. 00000000v 


0000* 
ODF8 


i Sere 90:29:58 


QO06A ; TPASTARGET 
U.73:  —_ WORD 
O006C ; TPASTYPE 
U.74: — ,WORD 
0006E ; TPASSUBEXP 
U.76: WOR 
00070 ; TPASTARGET 
U.77: WORD 
00072 {base. OPTION. 
00072 ; TPASTYPE 
U.81: —,WORD 
00074 ; TPASTYPE 
U. 83: WOR 
00076 ; TPASTARGET 
U.85: — . WORD 
00078 ;BASEOP1 
U.84:  _. BLKB 
00078 j TRAST YPE 
0007A WS rp 
0007C WS ede: 


00080 Y TPASTARGET 
00082 Ue PASTYPE 
00084 ; TPASSUBEXP 
00086 JBase 
00086 ; TPASTYPE 

00088 : TPASSUBEXP 
00084 ; 
0008¢ ; 
0008¢ 
0008E 
00090 
00092 ; 
00092 ; 
00094 
00096 
0009A 
0009¢ 


0.92:  .WORD 


7672 
<<U.75-U.76>-2> 
-1 

0 

1280 

5181 
<<U.84-U.85>-2> 
0 

-26120 
<<U.87-U.88>-2> 
<<SET_BASE-U.89>-4> 
<<U.90-U.91>=2> 
3576 
<<U.93-U.94>-2> 
0 

7672 
<<U.96-°U.97>=2> 


1281 

5181 

<<U.105-U.106>-2> 

C 

-26120 

<<U.87-U.108>-2> 
<<SET_CHANNELS-U.109>-4> 
<<U.110-U.111>-2> 


AX-11 Bliss-32 V4.0-7 
LINKER. SRCJLNKOPTION. 2;1 


LNK_PROCOPTIONS Linker options parser Ib-Se Sep-19 :5 AX-11 Bliss-32 V4.0-7 p 7 
v04= Feadest ion - Read record from options file =3e87 1382 99: 44: 38 LINKER. SRCJLNKOPTION. 5 2:1 a SS 
U.11 -WORD 3576 : 
0000* 0009 + TPA SuBEXP 
U.11 .W <<U.93-U.115>-2> : 
000A0 : CHANOP2 
U.110: .BLKB 0 
1DF8 OOOAO ; TPASTYPE 
U.114: WORD 7672 : 
0000* 000A2 AY tet | 
U.115: . WORD <<U.96-U.115>-2> : 
FFFF QOOA4 ; TPASTARGET 
U.116: WORD -1 : | 
000A6 ; CLUSTER OPTION 
U.13: BLK 
0502 O00A6 ; TPASTYPE 
U.120: .WORD 1282 3 
043D O0O0A8 ; TPASTYPE 
U.122: .WORD 1085 3 
99F8 OOOAA ; TPASTYPE 
0.123: .WORD  -26120 : 
0000* OOOAC ; TPASSUBEXP 
U.125: .WORD <<U.124-U.125>-2> : 
00000000V OOOAE ; TPASACTION 
U.126: .LONG <<CREATECLUSTER=U.126>-4> : 
0000* 000B2 ; TPASTARGET 
U.128: .WORD <<U.127-U.128>-2> ; 
ODF8 000B4 ;TPASTYPE 
U.129: .WORD 3576 3 
0000* 00086 ; TPASSUBEXP 
U.130: .WORD <<U.93-U.130>-2> : 
000B8 ;CLUOP1 
U.127: .BLKB 0 
11F7 OOOB8 ; TPASTYPE 
U.131: .WORD 4599 : 
0000* OOOBA ; TPASTARGET 
U.133: .WORD  <<U.132-U.133>-2> ; 
102C OOOBC ; TPASTYPE 
U.134: .W 4140 z 
0000* OOOBE ; TPASTARGET 
U.136: .WORD <<U.135-U.136>-2> : 
ODF8 OO0CO ; TPASTYPE 
U.137: .WORD 3576 : 
0000* 000C2 ; TPASSUBEXP 
U.138: .WORD <<U.93-U.138>-2> : 
000C4 ACL uore 
U.155: .BLKB 0 
11F7 OO0C4S ; TPASTYPE 
U.139: .WORD 4599 : 
0000* 000C6 ; TPASTARGET 
U.140: .WORD <<U.132-U.140>-2> ; 
99F8 O00C8 ; TPASTYPE | 
U.141: WORD -26120 ; 
0000* OO0CA a eet 
U.143: . WORD <<U.142-U.143>-2> 3 
00000000v OOOCC ; TPASACTION 
U.144: LONG <<SETCLUSTERBASE-U.144>-4> ;: 
0000* 00000 Us PASTARGET 
U.146: . WORD <<U.145-U.146>-2> ; 


LNK_PROCOPTIONS Linker options parser Ip-5e Sep-19 :5 AX-11 iss- 
v04=000 readopt ion ~ Read record from options file et 7 99: 4 38 LINKER’ SRE Licovtion B32;1 


ODF8 000D2 ;TPA vwe 
U. ik .WORD 3576 
0000* 00004 ; 


" bit WORD <<U.93-U. 148>-2> 
00006 ;C 9 
U : ,BLKB 0 


11F7 00006 ; TPASTYPE 

U. : WORD 4599 
BOOOe 0008 Tet eeiRD  <eu.132-U.150>-2 

x a <U.132-U.150>-2> 

102C OOODA ; TPASTYPE 

U. » WORD 4140 
0000* OOODC ; TPASTARGET 

U. : WORD <<U.152-U.153>-2> 
ODF8 OOODE ; TPASTYPE 

U. : .WORD 3576 
0000* O00EO ; TPASSUBEXP 

U. «WORD <<U.93-U.155>-2> 

OOOE2 ;CLUOP4 

U. : .BLKB 0O 
11F7 OOOE2 ;T TYPE 

U. : WORD 4599 
0000* OO0E4 ; TPASTARGET 

U. : WORD <<U.132-U.157>-2> 
99F8 OOODE6 ; TPASTYPE 

U : WORD -26120 


0000* 000E8 
00000000V OO0EA 
0000* OO0EE 


$ 

9 

$ 

0 

$ 

1 

$ 

3 

$ 

4 

$ 

5 

0 

2 

$ 

6 

$ 

7 

$ 

: 

: ions <<U.142-U.159>-2> 

: -LONG <<SETCLUSTERPFC-U.160>-4> 
¢: »WORD <<U.161-U.162>-2> 
3 
$ 
4 
0 
1 
$ 
5 
$ 
6 
$ 
7 
$ 
9 
$ 
0 
$ 
$ 
: 
$ 


ODF8 COOFO ;T TYP 
U. -WORD 3576 
0000* O0OF2 ; TPASSUBEXP 
U. eWORD <<U.93-U.164>-2> 
OOOF4 ;CLUOPS 
U. : .BLKB 0O 
11F7 OOOF4 ;T TYPE 
U. : WORD 4599 
0000* OO0F6 ; TPASTARGET 
U. : .WORD <<U.132-U.166>-2> 
102C OOOF8 ; TPASTYPE 
U. : WORD 4140 
0000* OOOFA ; TPASTARGET 
U. : WORD <<U.168-U.169>-2> 
ODF8 OOOFC ; TPASTYPE 
U. : WORD 3576 
0000* OOOFE ; TPASSUBEXP 
U. eWORD <<U.93-U.171>-2> 
00100 ;CLUOP6 
U. : .BLKB 0 
11F7 00100 ; TPASTY 
U. : WORD 4599 
0000* 00102 ;T 


eWORD <<U.132-U.173>-2> 
19F8 00104 E 


LNK_PROCOPTIONS Linker options parser $ep-1984 00:22:5 AX-11 Bliss-32 V4.0 LN 
y04=000 readoption - Read record from options file if se0-1984 99299 538 LINKER.SRC [iOPTION 8 B32;1 a 3 voé 
| 
U.174: WORD 6648 : 
0000* 00106 ALY SUBEXP 4 Seed 80808 
Si, oe <€<U.3-U.175>-2> : 
0000+ 00108 ; fPASTARGET | 
U.177: WORD <<U.176-U.177>-2> : 
ODF8 O010A p THAR TYPE 
U.178: .WORD 3576 : 
0000* 0010C ; TPASSUBEXP 
U.179:_ . <<U.93"U.179>=2> : 
0010€ sCLUOPT 
U.176: .BLKB 0 
1DF8 OO10E ; TPASTYPE 
0.180: .WORD 7672 ; | 
0000* 00110 ; TPASSUBEXP | 
U.181: . WORD  <<U.96-U.181>-2> : 
0000* 00112 ; TPASTARGET 
00114 A CLUQPTA 
U.132: .BLKB 0 | 
95F6 00114 ; TPASTYPE 
0.184: .WORD 27146 : | 
_recraatabescann Aah rebpee: G INSERTCLUSTER 185>-4 
° t . << -U. >=-4> $ 
0900* 0011A ; TPASTARGET 
U.186:  .WORD <<U.182-U.186>-2> 3 
0011C ;CLUOP8 
U.182: .BLKB 0 
95F6 OO11C ; TPASTYPE 
U.187: .WORD -27146 : 
00000000V 0011E ;TPASACTION 
U.188: .LONG <<CLUSTERDONE-U. 188>-4> : 
FFFF 00122 ; TPASTARGET 
U.189: .WORD <1 3 
00124 ;COLLECT_ “OPTION 
U.19: TBLKB 0 
0503 00124 ;TPASTYPE 
U.193: WORD 1283 : 
043D 00126 ; TPASTYPE 
U.195: .WORD 1085 3 
99F8 00128 ; TPASTYPE | 
U.196: .WORD -26120 3 
0000* 0012A ; TPASSUBEXP 
U.197: WORD <<U.124-U.197>-2> : 
00000000v 0012C Tt ORACTION 
U.198: .LONG <<SET_COLLECT-U.198>-4> ; | 
0000* 00130 ; TPASTARGET 
U.200: .WORD <<U.199-U.200>-2> 3 
ODF8 00132 ;TPASTYP 
U.201: .WORD 3576 $ 
0000* 00134 ; TPASSUBEXP 
U.202: .WORD  <<U.93-U.202>-2> ; 
00136 ;COLLOPI 
U.199: .BLKB 0 
102C 00136 ; TPASTYPE 
U.203: .WORD 4140 3 
0000* 00138 ; TPASTARGET 
0.205: .WORD <<U.204-U.205>-2> ; 


LNK_PROCOPTIONS Linker options parser ip-S0 Sep-1984 AX-11 Bliss-32 V4.0-74 
v04=000 readopt ion ~ Read record from options file at 7 99: 94: 38 LINKER. SRCJLNKOPTION.B32;1 


ODF8 O013A ; TRASTYPE 
U. 0 H ~ WORD 3576 
0000* 0013C ; TPASSUBEXP 
U. «WORD <<U.93-U.207>-2> 
O013E ;C P2 
U. -BLKB 0 
19F8 OO13E ; TPASTYPE 
U. «WORD 6648 
0000* 00140 ; TPASSUBEXP 
U. «WORD <<U.209-U.210>-2> 
0000* 00142 ; TPASTARGET 
U. ~WORD <€<U.211°U.212>-2> 
ODF8 00144 ;T TYPE 
U. -WORD 3576 
0000* 00146 ; TPASSUBEXP 
U. «WORD <<U.93-U.214>-2> 
00148 ;COLLOP3 
U. : .BLKB 0 
1DF8 00148 ;T TYPE 
U. eWORD 7672 
0000* 0014A ; TPASSUBEXP 
U. -WORD <<U.96-U.216>-2> 
FFFF OQO14C ;T TARGET 
U. WORD 
OO14E ;C ECT -PSECT _LIST 
U. LKB 
99F8 OO14E ;T 


WORD =-26120 


7 
4 
$ 
8 
$ 
: 
$ 
4 
L 
1 
$ 
5 
$ 
6 
$ 
(3 
L 
9: 
H 
0000* 00150 $ 
# eWORD ©<<<U.124=U.219>-2> 
0 
$ 
2 
$ 
3 
$ 
4 
P 
1 
$ 
5 
$ 
6 
$ 
7 
$ 
8 
$ 
9 
$ 
0: 
0 
; 
4 
$ 


00000000V 00152 ; TPASACTION 
U. - LONG <<COLLECT_PSECT=-U.220>-4> 
0000* 00156 ; TPASTARGET 
U. eWORD <<U.221-U.222>-2> 
ODF8 00158 ; TPASTYPE 
U. eWORD 3576 
0000* 0015A ; 1PASSUBEXP 
U. : .WORD <<U.93-U.224>-2> 
0015C ;COLPSC1 
U -BLKB 0 


102c 0015¢ ;T 
0000* 0015€ 


WORD 4140 
WORD <<U.209-U.226>-2> 


117 00160 ;TPASTYPE 

U. -WORD 4599 
FFFF 00162 ; TPASTARGET 

U. «WORD -1 
ODF8 00164 ; TPASTYPE 

U. -WORD 3576 
0000* 00166 ; TPASSUBEXP 

U. -WORD <<U.93-U.230>-2> 

00168 ;D “MIN OPTION: 

U BLK 

0504 00168 


+e 
DRO UND WR W Wy WV DV DVO DV DB Dl DN DVO DV DN DVO DU BUN wR UO wT 


WORD 1284 
YP 


143D 0016A 


LNK_PROCOPTIONS Linker options parser 
v04=000 


readoption - Read record from options file 


0000* 


99F8 
0000* 
00000000v 
0000+ 
ODF 8 
0000+ 


1DF8 
0000+ 
FFFF 


0505 
0430 
19F8 
0000+ 
0000+ 
ODF 8 
0000+ 


102¢ 
0000+ 
ODF8 
0000+ 


99F8 
0000+ 


0016C 
0016E 
0016E 
00170 
00172 
00176 
00178 
0017A 
0017¢ 
0017¢ 
0017E 
00180 
00182 ; 
00182 
00184 
00186 
00188 
0018A 
0018C 
0018E 
00190 
00190 
00192 
00194 
00196 


00198 :6 


00198 
Q019A 


F 14 


SStp=1986 29:42 


39: .WORD 
ASSUBEXP 


.W 
; TPASSUBEXP 
Vg Se ee 


. :  ,WORD 
; TPASSUBE XP 
U.268: .WORD 


5181 
<<U.237-U.238>-2> 
0 

-26120 
<<U.87-U.240>-2> 


<<SET_MIN_DZRO-U.241>-4> 


<<U.242"U.263>-2> 
3576 
<<U.93-U.245>=2> 
0 

7672 
<<U.96-U.247>-2> 
-1 


1285 

1085 

6648 
<<U.256-U.257>-2> 
<<U.258-U.259>-2> 
3576 
<<U.93-U.261>-2> 
0 

4140 
<<U.263-U.264>-2> 
3576 

<<U.93-U. 266>-2> 
0 

-26120 
<<U.87-U.268>-2> 


§ AX-11 Bliss- .0-74 
é LINKER. SRCJLNKOPTION.B52;1 


LNK_PR 
V04= 


COPTIONS oe 
readoption 


oot" 


ons parser 


- Read record from options file 


00000000Vv 
0000+ 
ODF8 
0000* 


102¢ 
0000+ 
ODF8 
0000+ 


99F8 
0000* 
00000000v 
0000* 
ODF 8 
0000* 


1DF8 
0000* 
FFFF 


9306 

01 

00000000 
00000000Vv 

FFFF 

9307 

01 

00000001 


OO19C ; 
001A0 
001A2 
001A4 
001A6 
001A6 
001A8 
QO1AA 
OO1AC 
OO1AE 
OO1AE 
00180 
00182 
00186 
00188 
OO1BA 
001BC 
0018C 
001BE 
001C0 
001C2 
001C2 
001¢4 
001C5 
001¢9 
001CD 
001CF 
00101 
001D2 


Mt pally 
:TPASTARGET 


ONG 


Cce- Ce- Ce. 
Gye —te —te 


ce 
Gye —te 


75: .BLKB 


© Cee Cee Cee Cee Cee Cee 
—: —* —de —te 


ce 
que —te 
NMVMOM DVR DVN DM DMN DN DUN DP DY DN DN OTN OT 
= 3 Coy co 


ce- ce. 

—e 

» oo 
™m 
. 
o £ -ocxe 
. s°Ss $-“3-s"s 
@ 


; TPASSUBEXP 
; TPASTARGET 


56: 


Cee Cee Cee Cee Cee 
—te —te —te te 
Mm-vUr 0M UTM UT Ur” 


~ 
vo 
> 

ono 
~ 
wv 
m 


; TPASFLAGS 
a : BYTE 
; TPASPARAM 


S ce- 
Wwuw 
oro 
_ 


ifrSeoe19Be 90:92:56 


AX-11 Blisg-32 V4.0-74 
LINKER. SRCJLNKOPTION.B52;1 
<<SET_GSMATCH_MAJ-U.269>-4> 
<<U.270-U.271>-2> 

3576 

<<U.93-U.273>=2> 

0 

4140 

<<U.275-U.276>-2> 

3576 

<<U.93-U.278>-2> 

0 

-26120 

<<U.87-U.280>-2> 
<<SET_GSMATCH_MIN-U.281>=4> 
<<U.282-U.283>-2> 

3576 

<<U.93-U.285>-2> 

0 

7672 

<<U.96-U.287>-2> 


-WORD  -=1 
-GSMATCH. PARSE _CONTROL 
=BLKB ~ 0 


-27898 

1 

0 
<<SET_GSMATCH_CTL=-U.295>-4> 
-1 

-27897 


LNI 
vO« 


LNK_PROCOPTIONS Linker 
V04= readopt 


Hf 


ptions parser 

on = Read record from options file 
00000000v 

FFFF 

9308 

01 

00000002 
00000000v 

FFFF 

ODF8 
0000* 


0509 
043d 
19F8 
0000+ 
0000* 
ODF8 
0000+ 


1DF8 
0000+ 
FFFF 


910A 
00000000v 
FFFF 
ODF8 
0000+ 


': 


U. 
00106 es 


wren 
0otDC 
OO1DE ; 
spinal 
OOTES 
0Ote? 
0OTED 
OOTER 
OOTED 
OTE + 
OOTEr 
0O1FT 
001FS 
0O1FS 
001K? 
001F9 
oo1re : 
oo1re : 
001FD 
etal | 
00201 ; 
eneiel 
00205 
00207 
00209 
00208 
00200 ; 


u 


“cer 
—— a. — 


14 
seb-19 i 98: 93 AX-11 Bliss-32 V4.0-74 


» LONG 


> 
"y 
.—<« 
ys 
= 
Gye 
rr 
_" 


>oOo 
nr = 
“he 
rc 
> 
ae ° 
“oc Emre 
moO 


—— 


v- _— 
> 
»@ 3 
> m 
zo 


—— 


ORD 


pod nial 


PrN>- PnP PPP P— POFFO 
P= OOo RS BOOS SOS! com 
m 
<£ 
o 
z@ 
LJ 


o—s * 
vu > 
me ne 


RD 
Rate -BLKB 
U.329: _.WORD 
* TPASSUBE XP 

U 3393 .WORD 


32 


W 
cE TPE OPTION 
RB OO 


LINKER. SRCJLNKOPTION.B32; 1 


Sodr mcaei tak tet 
-1 

-27896 

1 

2 
<<SET_GSMATCH_CTL=U.311>=4> 
-1 

3576 

<<U.935-U.314>-2> 


1289 

1085 

6648 
<<U.323-U.324>-2> 
<<U.325-U.326>-2> 
3576 
<<U.93-U.328>-2> 
0 

7672 
<<U.96-U.330>-2> 


Ww -1 
ie TYPE PARSE 


-28406 
<<SET_IMAGE_TYPE-U.336>-4> 
-1 
3576 

<<U.93-U. 339>-2> 


sinAGE 16 LENT a ON 


rivet 


COPTIONS Linker options parser 


readoption - Read record from options file 
0508 
0430 
9222 

01 
00000001 
00000000v 
FFFF 
93F1 

01 
FFFFFFFE 
00000000v 
FFFF 
ODF8 
0000+ 


050¢ 
0430 
99F8 
0000+ 
00000000V 
0000+ 
ODF8 
0000* 


10F8 
0000+ 


FFFF 


050D 


ifoSenct9Be 00:22:56 


AX-11 Bliss-32 V4.0 
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00200 a terre 
U.344: WORD 1291 
OO2Z0F ; TPASTYPE 
U.346: WORD 1085 
00211 g TEAST YPE 
U.347: s¥gRd -28126 
00213 pTgAgeLacs 
U.348: .BYTE 1 
00214 NaS) gay 
U.349: .LONG 1 
00218 pIRSRACTION 
U.350: .LONG <<SET_IMAGE_IDENT-U.350>-4> 
0021C ; TPASTARGET 
U.351: WOR -1 
OO2Z1E ; TPASTYPE 
U.352: .WORD <-27663 
00220 pTRORF LAGS 
U.353: .BYTE 1 
00221 ; TPASPARAM 
U.354: .LONG -2 
00225 ; TPASACTION 
U.355:  .LONG <<SET_IMAGE_IDENT-U.355>-4> 
00229 ; TPASTARGET 
U.356: .WO -1 
0022B ; TPASTYPE 
U.357: .WO 3576 
0022D ; TPASSUBEXP 
U.358: <<U.93-U. 358>-2> 
0022F ; 1MAGE_ NAME OPTION 
U.75: BLRB (OO 
O0022F ; TPASTYPE 
U.362: .WORD 1292 
00231 ; TPASTYPE 
U.364: .WORD 1085 
00233 ; TPASTYPE 
U.365: .WORD -26120 
00235 ; TPASSUBEXP 
U.366: .WORD <<U.124-U.366>-2> 
00237 ; TPASACTION 
U.367: .LON <<SET_IMAGE _NAME-U.367>-4> 
00238 ; TPASTARGET 
U. 369: <<U. 368-U. 369>-2> 
00230 ; TPASTYPE 
U.370: .WORD 3576 
0023F ; TPASSUBEXP 
U.371: WORD <<U.93-U.371>-2> 
00241 ; NAMEOPT 
U.368: .BLKB 0 
00241 ; TRASTYPE 
U. 372: 7672 
00243 ;TPA SUBEXP 
U. 373: <<U.96-U. 373>-2> 
00245 ; TPASTARGET 
U 374: 


° RD =1 
00247 ; jiQsecnent Shae 


00247 TTPASTYPE 


Page Rd 


LN 


COPTIONS Linker options parser 
readoption - Read record from options file 


0430 
99F8 
0000+ 
00000000Vv 
0000+ 
ODF8 
0000+ 


11F7 
FFFF 
102C 
0000+ 
ODF8 
0000+ 


930€ 

01 

00000000 
00000000v 

FFFF 

930F 

01 

00000001 
00000000Vv 

FFFF 

ODF8 
0000+ 


iecBee19Bs 90:22:56 


U. 378: WORD 
00249 ; TPASTYPE 
U.380: WORD 
00248 ; TPASTYPE 
U.381: .WORD 
00240 ; TPASSUBEXP 
U.382:  .WORD 
O024F ; TPASACTION 
U.383: .LONG 
00253 ; TPASTARGET 
U.385: .WORD 
00255 ; TPASTYPE 
U.386: .WORD 
00257 ;TPA SUBEXP 
U.387: WORD 
00259 ; sigsecori. 
-BLKB 
00259 VePaStyPE 
U.388: .WORD 
00258 ; TPASTARGET 
U.389: ORD 
0025D ; TPASTYPE 
U. 390: ORD 
0025F ; TPASTARGET 
U.392: J ORD 
00261 ; TPASTYPE 
U. 393: ORD 


00263 ; TPASSUBEXP 
00265 : 1OSEGoP2 
00265 3» 
00267 ; :TBASFLAGS2 
00268 ; TPASPARAM 
0026¢ ; sieugacriOn® 
00270 ; 
00272 ; 7PASTYP 
00274 
00275 
00279 
0027D 
0027F 
00281 
00283 ; 


1293 

1085 

-26120 
<<U.87-U.382>-2> 
<<SET_IOSEG-U.383>-4> 
<<U.384-U.385>-2> 
3576 

<<U.93-U. 387>-2> 

0 

4599 

-1 

4140 
<<U.391-U.392>-2> 
3576 

<<U.93-U. 394>=2> 

0 

-27890 

1 

0 

<<SET_POBUF S-U.401>=4> 
-1 

-27889 

1 

1 

<<SET_POBUF S-U.409>-4> 
-1 

3576 

<<U.93-U.412>-2> 


AX-11 Bliss-32 V4.0-7 
LINKER. SRCJLNKOPTION. 3 231 


LN 


LNK_PROCOPTIONS Linker 
Vv04= readopt 


} 


ptions parser 
on - Read record from options file 


0510 
0430 
99F8 
0000* 
00000000v 
0000+ 
ODF 8 
0000+ 


1DF8 
0000* 
FFFF 


0511 
0430 
9312 

01 
00000001 
00000000v 
0000+ 
9313 

01 
00000000 
00000000Vv 
0000* 
ODF 8 
0000+ 


1DF8 


irae 90:99:58 


00283 ; Wy Mei 


WORD 

00285 ; sipasiveé 
U.41 WORD 

00287 ; TPASTYPE 
U. 420: Se 


00289 ; TPASSUBEX 
U. 421: . WORD 
00288 ; TPASACTION 
U.422: .LONG 
OO28F ; TPASTARGET 
U.424: WORD 
00291 regervre 
U.425: .WORD 
00293 ; TPASSUBEXP 
U.426: .WORD 
00295 ; ISDMAXOP1 
U.423: .BLKB 
00295 ; TPASTYPE 
U.427:  .WORD 
00297 ; TPASSUBEXP 
U.428:  .WORD 
00299 ; TPASTARGET 
U. 429: .WORD 
00298 ;PROTECT_OPTION 
U.39: TBLKB 
00298 Wt Hae 
U.433: .WORD 
00290 ; TPASTYPE 
U.435:  .WORD 
OO29F ; TPASTYPE 
U.439: WORD 
002A1 ; TPASFLAGS2 
U.440: .BYTE 
OO2A2 ; TPASPARAM 
U.441: LONG 
002A6 ; TPASACTION 
U.442: .LONG 
OO2ZAA ; TPASTARGET 
U.444: . WORD 
OO2AC ; TPASTYPE 
U.448: .WORD 
OO2ZAE ; TPASFLAGS2 
U.449: BYTE 
OO2AF ; TPASPARAM 
U.450: .LONG 
00283 ; TPASACTION 
U.451: . LONG 
00287 ; TPASTARGET 
U.452: WORD 
002B9 ; TPASTYPE 
U.453: .WORD 
002BB ; TPASSUBEXP 
U.454: WORD 
002BD ;PROTOP1 
-443: .BLKB 
002BD ; TPAS$ 


1296 

1085 

-26120 
<<U.87"U.421>-2> 
<<SET_ISD_MAX-U.422>-4> 
<<U.423-U.424>-2> 
3576 
<<U.93-U.426>-2> 
0 

7672 
<<U.96-U.428>=2> 


<<SET_PROTECT=U.442>-4> 
<<U.443"U.444>-2> 
-27885 

1 

0 
<<SET_PROTECT=U.451>=4> 
<<U.443-U.452>-2> 

3576 

<<U.93-U.454>-2> 


AX-11 Bliss-32 V4,0-74 
LINKER.SRCJLNKOPTION.B52;1 


UNI 


La PRC ort ONS Linker options parser I§- ~bep-1984 t 99: $¢: 38 AX-11 Bliss-32 V4.0-7 Page Rid 


readoption - Read record from options file -Sep-1984 LINKER. SRCJLNKOPTION. 3 2:1 )| 
U.456: .WORD 7672 F 
0000* 002BF MA, pameaated 
U.457: WORD <<U.96-U.457>-2> : 
FFFF Q02C1 ; TPASTARGET | 
U.458:  .WO -1 3 
002¢c3 ; 5 ial te 
U.45:_ BL 0 | 
0514 002C3 ; TPASTYPE 
U.462: .WORD 1300 3 
0430 002C5 ; TPASTYPE 
U.464: . WORD 1085 : 
99F8 O002C7 ; TPASTYPE 
U.465: .WORD -26120 : 
0000* 0N2C9 ; TPASSUBEXP 
U.466: .WORD <<U.124-U.466>-2> : 
00000000V 002CB ; TPASACTION 
U.467: .LONG <<CREATEPSECT-U.467>-4> : 
0000* OO2CF ; TPASTARGET 
U.469: .W <<U.468-U.469>-2> : 
ODF8 002D1 ; TPASTYPE 
U.470: .WORD 3576 3 
0000* 00203 ; TPASSUBEXP 
U.471: WwW <<U.93-U.471>=-2> : 
00205 ;PSCOP1 
U.468: .BLKB 0 
102C 002D5 ; TPASTYPE 
U.472: . 4140 : 
0000* 002D7 ; TPASTARGET 
U.474: WORD <<U.473-U.474>-2> : 
ODF8 O002D9 ; TPASTYPE 
U.475: WORD 3576 : 
0000* 002DB ; TPASSUBEXP 
U.476: .WORD <<U.93-U.476>-2> ; 
00200 Pecor 
U.473: .BLKB 0 
1DF8 O02D0D ; TPASTYPE 
U.477: .WORD 7672 3 
0000* OO2DF ; TPASSUBEXP 
U.479: .WORD <<U.478-U.479>-2> : 
0000* 002E1 ; TPASTARGET 
U.481: . WORD <<U.480-U.481>-2> 3 
002E3 ;PSCOP3 
U.480: .BLKB 0 
102C 002E3 Wet: Hate 
U.482: .WORD 4140 : 
0000* 002E5 Wty ee 
U.483: . WORD <<U.473-U.483>-2> 5 
11F7 OO2ZE7 ; TPASTYPE 
U.484: .WORD 4599 : 
FFFF 002E9 ; TPASTARGET | 
U.485:  .WORD -1 $ 
ODF8 OO2ZEB ; TPASTYPE 
U.486: .WORD 3576 : 
0000* O02ED ; TPASSUBEXP 
U.487: WORD U.93-U.487>-2> 3 
OO2EF ; jPebg TPA PARSE ATTRIBUTE 
4 LKB =O 
| 
| 
| 
| 
| 


<- 
Cz 


LNK_PROCOPTIONS Linker 
V04= readopt 


3 


ptions parser 


on = Read record from options file 


9315 

01 

OOOOF FF? 
00000000v 
FFFF 
9316 

01 
00000008 
00000000Vv 
FFFF 
9317 

01 
OOOOFFFB 
00000000Vv 
FFFF 
9318 

01 
00000004 
00000000Vv 
FFFF 
9319 

01 
000000C0 
00000000Vv 
FFFF 
931A 

01 
OOOOF F BF 
00000000v 


O02EF 
002F1 
002F2 
002F6 
OO2FA 
002FC 
OO2FE 
O02FF 
00303 
00307 
00309 
00308 
0030C 
00310 
00314 
00316 
00318 ; 
00319 ; 
00310 
00321 
00323 
00325 
00326 ; 
0032A 
0032E 
00330 
00332 
00333 ; 
00337 ; 


igen 00:26 


AAT lg 
U.491 egRD 
s TPA FLAGS 
U.492: .BYTE 
3; TPASPARAM 
U.493: . LONG 
; TPASACTION 
U.494: LONG 
Tt: Hate 
U.495:  . WORD 
; TPASTYPE 
U.499: . . 
3 TPASFLAGS 
U.500: .BYTE 
; TPASPARAM 
U.501: .LONG 
3; TPASACTION 
U.502: .LONG 
; TPASTARGET 
U.503: .WORD 
; TPASTYPE 
U.507: .WORD 
3 TPASFLAGS2 
U.508: .BYTE 
3; TPASPARAM 
U.509: .LONG 
3; TPASACTION 
U.510: .LONG 
3; TPASTARGET 
U.511: WORD 
; TPASTYPE 
O31: . WORD 
TPASFLAGS2 
U. 516: .BYTE 
TPASPARAM 
0.517: LONG 
; TPASACTION 
U.518: ~ LONG 
s TPASTARGET 
U.519: .WORD 
; TPASTYPE 
i. 523: .WORD 
; TPASFLAGS2 
U.524: .BYTE 
: TPASPARAM 
U.525: AT ONG 
3; TPASACTION 
U.526: .LONG 
3; TPASTARGET 
U.527: . WORD 
; TPASTYP 
U.531: vane 
; TPASFLAGS 
U. 532: .BYTE 
TPA PARAR 
533: 
PASA 


AX-11 Bliss-32 v4.0 


-27883 

1 

65527 
<<SET_PSCATRIB-U.494>-4> 
-1 

-27882 

1 

8 
<<SET_PSCATRIB=U.502>-4> 
-1 

-27881 

1 

65531 
<<SET_PSCATRIB=U.510>-4> 
-1 

-27880 

1 

4 
<<SET_PSCATRIB-U.518>-4> 
-1 

-27879 

1 

192 
<<SET_PSCATRIB-U.526>-4> 
-1 

-27878 

1 

65471 


LINKER. SRC LNKOPTION. if 231 


e 
Page 38) 
ve 


LWK PROCOPTIONS Linker options parser 1$-S00-1984 90:22:56 ete Bliss -32 v4.0 Page a LN 


readoption = Read record from options file -Sep-1 INKER, SRC LNKOPTION. 5 2:1 vO 
U. 534: .LONG <<SET_PSCATRIB-U.534>-4> : 
FFFF 00338 ; ,TBASTARGET Le ; _ | 
931B 0033p -¥BASi vee : | 
6.539: -WOR -27877 ; 
01 0033F AtEASFLAGS2 ' 
00000010 00340 ;TPASPARAM ‘ 
0.541: .LONG 16 : | 
ste exe ise ae SET_PSCATRIB=U.542>=4 | 
.54e: , <<SET_ “U.542>=4> : 
FFF 00348  TPABTARGET | 
931C 0034A ; TRASTYPE : | 
0.547: .WORD  -27876 ; 
01 0034C ; TPASFLAGS2 
0.548: .BYTE 1 : 
OOOOFFEF 0034D ZIBASPARAM a 
00000000v 00351 ; TPASACTION . 
U.550: .LONG <<SET_PSCATRIB-U.550>-4> ; 
FFFF 00355 ;TPASTARGET 
U.551: .WOR -1 : 
931D 00357 ; TPASTYPE 
U.555: .WORD <-27875 : 
01 00359 ;TPASFLAGS2 
U.556: .BYTE 1 3 
00000002 0035A ;TPASPARAM 
0.557: .LONG 2 ; 
00000000V 0035E ;TPASACTION 
0.558: .LONG <<SET_PSCATRIB-U.558>-4> ; 
FFFF 00362 ; TPASTARGET 
U.559: .WORD -1 3 
931E 00364 ; TPASTYPE 
0.563: .WORD -27874 ; 
01 00366 ;TPASFLAGS2 
0.564: .BYTE 1 ; 
OOOOFFFD 00367 ; TPASPARAM 
0.565: .LONG 65533 : 
00000000V 00368 ; TPASACTION 
0.566: .LONG <<SET_PSCATRIB-U.566>-4> ; 
FFFF OO36F ; TPASTARGET 
0.567: .WORD -1 ; 
931F 00371 ; TPASTYPE | 
0.571: .WORD -27873 ; | 
01 00373 ; TPASFLAGS2 
0.572: .BYTE 1 ; 
00000001 00374 ; TPASPARAM | 
0.573: .LONG 1 : 
00000000v 00378 ;TPASACTION 
0.574: LONG <<SET_PSCATRIB-U.574>=4> : | 
FFFF 0037¢ s TRASTARGET | 
0.575: .WORD -1 : | 
9320 OO37E ; TPASTYPE 
0.579: .WORD  -27872 ; 
01 00380 ; TEASFLAGS 
0.580: .BYTE 1 : 


Linker options parser 
readoption - Read record from options file 


LNK_PROCOPT IONS 
yO=000 


OOOOFFFE 


00000000v 


FFFF 
9321 

01 
00000080 


00000000v 


FFFF 
9322 

01 

OOOOF F7F 


00000000v 


FFFF 
9323 

01 
00000020 


00000000v 


FFFF 
9324 

01 
OOOOF F DF 


09000000V 


FFFF 
9325 

01 
00000180 


00000000v 


FFFF 
9326 


be 


wo i 
00385 
00389 ; 
<oead | 
00380 
0038 5 
00392 5 
00796 
00598 
00394 = 
00398 
0039F 
OO3AS 5 
OO3AS 5 
Q0SA7 
O03AB 5 
OO3AC 
00380 
00382 
00384 
00385 
00389 = 
00380 5 
0038 
003Ct 
003¢2 
003¢6 
OO3CA ; 
OO3CC ; 


a 38:94:28 


* “Ur 
Po] 


a i 
3 


65534 
<<SET_PSCATRIB-U.582>-4> 
-1 

-27871 

1 

128 
<<SET_PSCATRIB-U.590>=4> 
-1 

-27870 

1 

65407 
<<SET_PSCATRIB-U.598>-4> 
-1 

-27869 

1 

32 
<<SET_PSCATRIB-U.606>-4> 
-1 

-27868 

1 

65503 
<<SET_PSCATRIB-U.614>-4> 
-1 

-27867 

1 

384 
<<SET_PSCATRIB-U.622>-4> 
-1 


AX-11 Bliss-32 V4.0-74 
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LNK_PROCOPTIONS Linker options parser Sep-1984 AX-11 Bliss- 4. 
y042000 readopt ion - Read record from options file ifote et 7 99: 4 38 LINKER’ SRe Lacobtion 852;1 


U.627: .WORD -27866 
01 OO3CE ; siBABF LAGS , 


OOOOFEFF OO3CF sTBASPARAM 
U.62 ONG 65279 
00000000v 00303 ; sTBASACTION 
<<SET_PSCATRIB-U.630>-4> 


FFFF 00307 : TPASTARGE 
U.631: .WORD <1 
9327 00309 ; siBasived. 


ORD 27865 
01 00308 ;TPASFLAGS? 
0.636: .BYTE 1 
00000200 003p¢ Y TPASPARAR 
0.637: .LONG 512 
00000000v 003E0 ; TPASACTION 
0.638: .LONG <<SET_PSCATRIB-U.638>-4> 
FFFF OO3E4 ; TPASTARGET 
0.639: .WORD =1 
9328 00366 sTPASTYPE | 
0.64 WORD  -27864 
01 O03E8 ;TPASFLAGS2 
0.644: .BYTE 1 
OOOOFDFF 003E9 ;TPASPARAM 
0.645: .LONG 65023 
00000000v 003ED ; TPASACTION 
0.646: .LONG <<SET_PSCATRIB-U.646>-4> 


FFFF OO3F1  TPASTARGET 


0.647: .WORD -1 


9329 O03F3 ; TPASTYPE 
U.651: .WORD -27863 
01 OO3F5 ; TPASFLAGS2 
U.652: .BYTE 1 
80000000 O003F6 ; TPASPARAM 
U. 653: .LONG 2147483648 
00000000v OO3FA ;TPASACTION 
U. 654: .LON <<SET_PSCATRIB-U.654>-4> 
FFFF OOSFE ; iPASTARGET 
U.$55: “1 
932A 00400 A Maa 
U.659: ~27862 


WORD 
01 00402 ; TPASFLAGS2 
U.660: .BYTE 1 
80000001 00403 ; TPASPARAM 
U.661:  .LONG  -2147483647 


00000001 « 00407 ; TPASACTION 
U.662: .LONG <<SET_PSCATRIB-U.662>-4> 
FFFF 00408 prose ranes! 
U. : .WO -1 
932B 00400 ty, Hae 
U.66 RD -27861 


01 0040F C TPASFLAGS? 
0.668: .BYTE 1 
80000002 00410 ; 
U.669: .LONG 2147483646 
00000000V 00414 ; TPASACTION 
U.670: .LONG <<SET_PSCATRIB-U.670>-4> 


ROCOPTIONS Linker options parser 
readoption = Read record from options file 


FFFF 
932C 

01 
80000003 


00000000Vv 


FFFF 
9320 

01 
80000009 


00000000v 


FFFF 
9230 

01 
80000000 


00000000v 


FFFF 
9231 

01 
80000001 


00000000Vv 


FFFF 
9232 

01 
80000002 


00000000v 


FFFF 
9233 

01 
80000003 


O041A ; 


OO41C ; 
0041D ; 
00421 ; 
00425 ; 
00427 ; 
00429 ; 
0042A ; 
0042E ; 
00432 ; 
00434 ; 
00436 ; 
00437 ; 
00438 ; 
OO43F ; 
00441 ; 
00443 ; 
00444 ; 
00448 ; 
0044C ; 
0044E ; 
00450 ; 
00451 ; 
00455 ; 
00459 ; 
00458 ; 
00450 ; 
Q045E ; 


© “Wee Whee dee 
PS 
vw 


oe bee 


oe moe mages 
v 


Be 99:99:28 


00418 ,"cgetance® 


AX-11 Bliss-32 v4.0 


-27860 

1 

2147683645 
<<SET_PSCATRIB“U.678>=4> 
-1 

-27859 

1 

-2147483639 
<<SET_PSCATRIB-U.686>-4> 
-1 

-28112 

1 

2147483648 
<<SET_PSCATRIB-U.691>-4> 
-1 

-28111 

1 

-2147483647 
<<SET_PSCATRIB-U.696>-4> 
-1 

-28110 

1 

2147483646 
<<SET_PSCATRIB-U.701>=4> 
-1 

-28109 


4 


LINKER. SRC [NROPTION. 4 2;1 


Lm COPTIONS Linker options parser 


‘ee Sep-1964 09:22:56 


readoption - Read record from options file 


705: _.LONG 


00000000v 00462 7 TPASACTION 


FFFF 

9239 

01 

80000009 
00000000v 

FFFF 

ODF8 
0000+ 


052E 
0430 
99F8 
0000* 
00000000Vv 
0000+ 
ODF8 
0000+ 


1DF8 
0000* 
FFFF 


052F 
0430 
99F8 
0000+ 
00000000Vv 


00466 
00468 
0046A 
00468 
0046F 
00473 
00475 
00477 
00479 
00479 
00478 
0047D 
0047F 
00481 
00485 
00487 
00489 
00488 
00488 
0048) 
0048F 
00491 
00491 


00493 ; 


00495 
00497 ; 
00499 


ee 
ae 


TARGET 


Cee Cee Cee Cee Cee Cee Cee Cee Cee Cee Cee Cee Cee Cee ce- ce 
Pie —te ate ate te ade ate ate me Oe te te me Ome ae 
FAWMMM—RMOKOCMVWM 
—o =gco ag eo oo dee dee Bees Wee - . 
QS <_ ro F 
vv DD za - 
mie Gye e Mie riie me Gye oe 
m =mre-o 
= “od 


do 
ON UMS NO NSO SO NEON UN UN UN UN UN UN UN US I NUN UN UN UN UN UN UNOS 


Pw 


= 
A 
wv 
(Tie 


“ 
Pd 
@D 
ave 
m 
4 


U.737: 

; TPASTYPE 
0.738: .W 
;TEASSUBEXP 


As abet 
740: ONG 


AX-11 Bliss-32 V4.0 


2147483645 
<<SET_PSCATRIB-U.706>-4> 
1 

-28103 

1 

2147483639 
<<SET_PSCATRIB-U.711>-4> 
-1 

3576 
<<U.93"U. 7 1 42=2> 

0 

1326 

1085 

26120 
<<U.87-U.723>-2> 
<<SET_SHL=-U.724>-4> 
<<U.725-U.726>-2> 
3576 

<<U.93-U.728>-2> 

0 

7672 

<<U.96-U.730>-2> 

-1 

0 

1327 

1085 

-26120 
<<U.87-U.739>-2> 
<<SET_STACK=U.740>-4> 


LINKER. SRC LNKOPTION. if 2;1 


Pa 3 LN 
- Ry vo 


| 

j 

i 

j 

| 

| 

| 
. 

. | 

| 
. 
. 
. 
’ 

} 
. 
. 

e | 
. 
. 
. 
. 
. 
. 
. 

| 


LNK_PROCOPTIONS Linker options parser 
v04=000 


readoption - Read record from options file 


0000+ 
ODF8 
0000* 


1D0F8 
0000+ 
FFFF 


0530 
0430 
99F8 
0000+ 
00000000v 
0000+ 
OoF8 
0000* 


102C 
0000* 
ODF8 
0000+ 


99F8 
0000+ 
00000000v 
0000+ 
ODF 8 
0000+ 


00490 
0049F 
004A1 
004A3 
004A3 
004A5 
004A7 
004A9 
004A9 
004AB 
004AD 
OO4AF 
00481 
00485 
00487 


00489 ; 


00488 
00488 
00480 
0046F 
004C1 
004C3 
004C3 
004¢5 
004C7 
004CB 
004CD 
O04CF 
00401 


ig Sen- 9 944: 


; TPA TARGET 
U.742: WORD 
s TPASTYPE 
U.743: WORD 
; TPASSUBE XP 
U.744: WORD 
; STACKOPI 
U.741: .BLKB 
ds Hie 
U.745:  .WORD 
; TPASSUBEXP 
U.746: WORD 
; TPASTARGET 
U.747: . WO 

; SYMBOL_OPTION 
U.55: BLK 
s TPASTYP 
U.751: WORD 
; TPASTYPE 
U.753: WORD 
; TPASTYPE 
U.754: . WORD 
; TPASSUBE XP 
U.755: WORD 
; TPASACTION 
U.756: .LONG 
3; TPASTARGET 
U.758: .WORD 
; TPASTYPE 
U.759: WORD 
3 TPASSUBEXP 
U.760: .WO 

s SYBGOLO 
U.757: .BLKB 
s TPASTYPE 
U.761: .WORD 
; TPASTARGET 
U.763: .WORD 
; TPASTYPE 
U.764: .WORD 
; TPASSUBEXP 
U.765: . WORD 
; SYMBOLOP2 
U.762: .BLKB 
; TPASTYPE 
U.766: .WO 

p Teagsuse x 
U.767: . WO 

; TPASACTION 
U.768: . LONG 
; TPASTARGET 
U.770: .WORD 
: TPASTYPE 
U.771: WORD 
ji passuae 
U.77 

; SYMBOLOP3 


36 AX-11 Bliss-32 V4.0 
<<U.741°U.742>-2> 

3576 

<<U.93-U.744>-2> 

0 

7672 

<<U.96°U. 746>-2> 

-1 


1328 

1085 

-26120 

<<U.124-U.755>=2> 

<<DEF INESYMBOLNAME =U. 756>-4> 
<<U.757-U.758>-2> 

3576 

<<U.93-U.760>-2> 

0 

4140 

<<U.762-U.763>-2> 

3576 

<<U.93-U.765>-2> 

0 

-26120 

<<U.87-U.767>-2> 

<<DEF INESYMBOLVAL-U. 768>-4> 
<<U.769-U.770>-2> 

3576 

<<U.93-U.772>-2> 


LINKER. SRC LNKOPTION. fe 2:1 


Page 44. 
9 (3) 


COPTIONS Linker 


tions parser 

on - Read record from options file 
1DF8 
0000+ 
FFFF 


0531 
1430 
0000+ 


99F8 
0000+ 
00000000v 
0000+ 
ODF8 
0000* 


1DF8 
0000+ 
FFFF 


0532 
0430 
1DF8 
0000+ 
FFFF 


102A 
0000+ 
99F8 


00401 
00403 
00405 
00407 
00407 
00409 
00408 
00400 
00400 
0040F 
004E1 
004E5 
004E7 
004E9 
004EB 
004EB 
004ED 
OO4EF 
004F1 
004F1 
004F3 
004F5 
004F7 
004F9 
OO4FB ; 
004FB 
004FD 
OO4FF 


ifeBen-1984 90:29:56 


AX=11 Bliss-32 V4.0-7 
LINKER. SRCJLNKOPTION. 3 2;1 


U. re? -BLKB 0 
;TPA TYPE 
U.773: .WORD 7672 
3; TPASSUBEXP 
U.774: WORD  <<U.96-U.774>-2> 
Ms Maat 
U.77 ORD 
et wrens D OPTION 
U.6 : 8 
siBASTYPE 
U.779: WORD 1329 
; TPASTYPE 
U.781: .WORD 5181 
3; TPASTARGET 
U.783: .WORD <<U.782-U.783>-2> 
UNS PPOP1 
U.782: .BLKB 0 
; TPASTYPE 
U.784: .WOR -26120 
; TPASSUBEXP 
U.785: .WORD <<U.87-U.785>-2> 
; TPASACTION 
U.786: .LONG <<SET_UNSUPPORTED=-U. 786>-4> 
; TPASTARGET 
U.788: .WOo <<U.787-U.788>-2> 
; TPASTYPE 
U.789: .WORD 3576 
; TPASSUBE XP 
U.790: .WORD <<U.93-U.790>-2> 
; UNSUPPOP2 
U.787: .BLKB 0 
; TPASTYPE 
U.791: .WORD 7672 
; TPASSUBEXP 
U.792: .WORD <<U.96-U. 792>-2> 
; TPASTARGET 
U.793: WORD oa 
; UNIVERSAL OPTION 
U.5 -BCkB 0 
; TPASTYPE 
U.797: . 1330 
; TPASTYPE 
U.799: .WO 1085 
pT CARTWPE 
U.800: .WO 7672 
3; TPA SUBEXP 
U. 802: 0 <<U.801-U.802>-2> 
3; TPA TARGET 
U. 803: .WOR 
PARSE UNLV veg BBLS 
0.80 
UOASiYPE™ 
U.804: .WORD 4138 
; TPASTARGET 
U.806: .WORD <<U.805-U.806>-2> 
s TPASTYPE 
U.807: .WORD -26120 


6} 


LNK_PROCOPT IONS LSahor 
V04= readopt 


ptions parser 


on = Read record from options file 


0000* 
00000000v 
0000+ 
OoF8 
0000+ 


102¢ 
0000+ 
11F7 
FFFF 
ODF8 
0000+ 


11F7 
0000+ 
ODF8 
0000+ 


95F6 
00000000Vv 
FFFF 


5DF8 

0000+ 
00000000* 

0000+ 


105F 
FEFE 


if 


00501 ;TPA SUBEXP 
G.808: .WORD 
00503 ; : TPASACTION 
0.809: .LONG 
00507 ; TPASTARGET 
G.811: .WORD 
00509 ; TPASTYPE 
0.812: WORD 
0050B ; TPASSUBEXP 
0.813: WORD 
0050p s PRS NIVi 
U.810: .BLKB 
00500 ; TPASTYPE 
U.814: WORD 
0050 ; TPASTARGET 
U.815: WORD 
00511 ; TPASTYPE 
U. 816: .WORD 
00513 ; TPASTARGET 
0.817: .WORD 
00515 ; TPASTYPE 
U.818: | WORD 
00517 ; TPASSUBEXP 
0.819: ORD 
00519 ; PRSUN NIV2 
U.805: .BLKB 
00519 ; TPASTYPE 
U.820: .WORD 
0051B ; TPASTARGET 
0.822: .WORD 
0051D ; TPASTYPE 
6.823: .WORD 
0051F ; TPASSUBEXP 
U.824: WORD 
00521 ;PRSUNIV3 
U.821: .BLKB 
00521 ; TPASTYPE 
U.825: . WORD 
00523 ; TPASACTION 


LONG 
00527 = TPASiARGET 


WORD 
00529 ; PARSE -FILELIST 0 


U. 
00529 ; TPASTYPE 


v. 
00528 ; TPASSUBE XP 


. WORD 
. WORD 


0052D ; TPASADDR 


00531 


U. : 
00533 ; ee 
00533 ; TPA 

0. . WORD 
00535  TPASTARGET 


. LONG 
;TPA TARGET 


U.83 -BLKB 


TYPE 


see 90:99:58 


<<U.124-U.808>=2> 
<<SET_UNIVERSAL-U.809>-4> 
<<U.810-U.811>=2> 
3576 
<<U.93-U.813>-2> 
0 

4140 
<<U.801-U.815>=2> 
4599 

-1 

3576 
<<U.93-U.819>=2> 
0 

4599 
<<U.821-U.822>-2> 
3576 
<<U.93-U.824>-2> 
0 

-27146 
<<SET_ALLUNIV-U.826>-4> 
-1 


24056 

<<U.829-U.830>-2> 

<<F ILESPEC_DESC-U.831>-4> 
<<U.832-U.833>-2> 

0 

4191 
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LNK_PROCOPTIONS Linker options parser Ig-Se Sep-1984 AX-11 iss- -0- 
V046= readoption - Read record from options file ety f 98% $f! PINKER SRe Licovtion-e 2:1 tines aig 


U.835: .WORD : 
1030 00537 Us pasi YPE 
U.83 : . 4157 P 
FFFE 00539 ay or 2 
902C 00538 pTegatyre 7 
U.838: .WORD -28628 : 
 esaantalenmiier? (8892 0" LONG <<PROCESSF ILE-U.839>-4 
“U.839>-4> : 
see gee: é reeoe GORD U.3-U.840>-2 
: “eer <<U. 3-U.840>-2> ; 
102F 00543 ;TPASTYPE 
U.841: WORD 4143 ; 
wert ¥ ‘ge rrr 
® eS <<U.84Z-U. >=2> : 
91F7 00547 ; TPASTYPE 
U.844: .WORD -28169 : 
00000000v 00549 ;TPASACTION 
U.845: LONG <<PROCESSF ILE-U.845>-4> : 
FFFF 00540 v TPASTARGET 
U.846: .WORD -1 : 
ODF8 OOS4F ; TPASTYPE 
U.847: .WORD 3576 3 
0000* 00551 ; TPASSUBEXP 
U.848: .WO <<U.93-U.848>-2> 3 
00553 ; PARSEF LE 
U.842: .BLKB 0 
9BF8 00553 ; TPASTYPE 
U. 849: .WORD <-25608 : 
01 00555 ; TPASFLAGS2 
U.850: .BYTE 1 ; 
0000* 00556 ; TPASSUBEXP 
U.852: .WORD <<U.851-U.852>-2> : 
0000001C 00558 ; TPASPARAM 
U.853: .L 28 3 
00000000v 0055C ;TPASACTION 
U.854: .LONG <<SET_INCLUDE-U.854>-4> : 
0000* 00560 ; TPASTARGET 
U.856: .WORD <<U.855-U.856>-2> ; 
9333 00562 ; TPASTYPE 
U.860: s¥ORD -27853 3 
01 00564 ; TPASFLAGS 
U.861: .BYTE 1 3 
0000001C 00565 ; TPASPARAM 
U.862: .LONG 28 : 
00000000v 00569 ALS + ACTION alts eoeinuk sites 
<< -U.863>-4> : 
0000* 0056D  TPASTARGE! ? 
U.864: . <<U.855-U. 864>-2> 3 
9334 0056F Wo a 
U.868: z¥Qnd 27852 3 
01 00571 p TRAE LAGS 
U.86 BYTE 1 : 
00000012 00572 ;TPA PARAM 
LONG 18 ; 


v. 
00000000v 00576 :FPASACTION 
U.871: .LONG <<SET_SELECTIVE-U.871>-4> : 


Sa eee ae es ee ee ee ae ee 


LNK_PROCOPTIONS Linker options parser ipefe Sep-1 AX-11 Bliss-32 V4.0-74 
vO4 readopt ion - Read record from options file eet 98: #4} 3 LINKER. SRC [NKOPTION. 8 231 ape Be 
ene Set j'8? Hee U.855-U.872>-2 | 
. . . << . "VU. >-2Z> g 
9BF8 0057C MY TYPE - pe | 
01 0057E UTPABELAGSS , 
1.874: 1 : 
permet ae bees cop U.875-U.876>-2 
. : . <<cu. “-U. >-2> ‘ 
00000002 00581 :TBASPARAM 
U.877: .LONG 2 : 
ee i878: LONG <<SET_SHAREABLE-U.878>-4 
. : a L "VU. >-4> P 
0000* 00589 Ad Haat 955 y. e7e>~2 
. oe a <<U.855-U.879>-2> : 
ODF8 00588 ; TPASTYPE 
U.880: .W 3576 : 
0000* 00580 ; TPASSUBEXP 
U.881: WORD <<U.93-U.881>-2> 3 
0058F ;PARSEFLS 
U.855: .BLKB 0 
102F OOS8F ; TPASTYPE 
U.883: .WORD 4143 ; 
0000* 00591 ; TPASTARGET 
U.884: .wWO <<U.842-U.884>-2> : 
15F6 00593 ; TPASTYPE 
U.88S5: .WORD 5622 : 
0000* 00595 ; TPASTARGET 
U.887: . <<U.886-U.887>-2> 
00597 ;PARSEFL4 
U.886: .BLKB 0 
902C 00597 ; TPASTYPE 
U.888: .WORD + -28628 3 
00000000v 00599 ; TPASACTION 
U.889: LONG <<PROCESSF ILE-U.889>-4> : 
0000* 00590  TPASTARGES 
U.890: .WORD <<U.3-U.890>-2> 3 
91F7 OOS9F ; TPASTYPE 
U.891: .WORD -28169 3 
00000000V 005A1 ;: TPASACTION 
U.892: .LONG <<PROCESSFILE-U.892>-4> : 
FFFF OOSAS Ae Maat 
U.893: .WORD -1 : 
ODF8 OOSA7 ; TPASTYPE 
U.894: .WORD 3576 : 
0000* 005A9 ; TPASSUBEXP 
U.895: .WORD <<U.93-U.895>-2> : 


—_ i855) “eixe 0 


19F8 OOSAB ; TPASTYPE | 
0.896: .WORD 6648 , | 
0000* 005AD 


+ eat 
U.89 D <<U.897-U.898>-2> : 
0000* OOSAF ; TPASTARGET 
0.900: .WORD  <<U.899-U.900>-2> : 
15F6 005B1 ;TPA TYPE 
-WORD 5622 ; 


U.9 
0000* 00583  TPASTARGET 


COPTIONS Linker options parser 
readoption - Read record from options file 


19F8 
0000+ 
0000* 
15F6 
0000+ 


19F8 
0000+ 
0000+ 
15F6 
0000+ 


OS5F1 
19F8 
0000+ 
0000+ 
15F6 
0000+ 


19F8 
0000* 
FFFF 
15F6 
FFFF 


1DF8 
0000+ 


Kk 15 
Seep 1986 20:41: 


00585 
00585 
00587 
00589 
00568 
00580 
0058F 
005BF 
005C1 
005¢3 
005¢5 
005¢7 
005¢9 
0059 
005C¢B 
005CD 
OOSCF 
00501 
00503 
00505 
00505 
00507 
00509 
00508 
00500 
0050F 
005DF 
005E1 


ate . WORD 
85 .BLKB 
 TPASTYPE 

; TPA dupéxe. 
; TPASTARGET 


.W 
STARGET 
-W 


>->-— > 

A =) 
< > « 
wv wv 
mm ae rte 

m 

“ 


~< 
v 
re 


VvoUO-OVOSVTO 
>-— > = > yp 

— “~ 

> < 

pe) vw 

* Gye rie 
m 
— 


~« 
~ 
vo 


— 
<t 
v 
Tie 


py ae ee Pp ep hy ay 
o e 
> 
wv 
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<<U.899-U.902>-2> 
0 

6648 
<<U.904-U.905>=2> 
<<U.906-U.907>=2> 
5622 
<<U.906-U.909>-2> 
0 

6648 
<<U.911-U.912>=2> 
<<U.913-U.914>=2> 
5622 
<<U.913-U.916>=2> 
0 

1521 

6648 
<<U.919-U.920>-2> 
<<U.921-U.922>=2> 
5622 
<<U.921-U.924>-2> 
0 

6648 
<<U.926-U.927>-2> 
-1 

5622 

-1 

0 

7672 
<<U.932-U.933>-2> 


LNK_PROCOPTIONS Linker options parser 
1042000 reaéopt ton ~ Read record from options file 


0000* 


19F8 
0000* 
0009+ 
15F6 
FFFF 


OSF1 
103A 
0000* 
0422 


1022 
0000* 
11F7 
FFFE 
103A 
FFFE 
15D 
0000* 


143A 
FFFF 


143A 
0000+ 


05F1 


ifBen-1964 90:22:56 


OOSES ; A ay 


OOSES ; signed 
U.9 -BLKB 
OOSES ; TPASTYPE 


U.936: WORD 
005E7 TPA ASSUBEXP 
005E9 ; siBASTARGET 


OOSEB ; TPASTYPE 


0.939: WORD 
OOSED s TPASTARGET 

U.940: WORD 
OOSEF NOS 

U.9 -BLKB 


OOSEF ; TPASTYPE 
U.941: _.WORD 
OOSF1 ; 
OOSFS ; 
005F5 


005F7 
005F7 


005F9 

005FB 
005FD 
OOSFF 
00601 
00603 
00605 
00607 


00607 
00609 ; TPASTARGET 
56: .WORD 
came Nodes BLKB 
00608 ZTBASTYPE ee: 
00600 ; ZTBASTARGET 
0060F ; jDEVNARE: 


Q060F ; TPASTYPE 


aye 


age —O- 


T 


Cee Cee Cee Cee 
ze —:. «te 


ce ce 
—e —tes 
BAA 


2 See 


BLKB 


U.959:  . WORD 


<<U.934-U.935>=2> 
0 

6648 
<<U.932-U.937>-2> 
<<U.934-U.938>-2> 
5622 

-1 

0 

1521 

4154 
<<U.943-U.944>=2> 
1058 

0 


4130 
<<U.947-U.948>-2> 
4599 

“2 

4154 

“2 

5613 
<<NODE2-U.954>=2> 
0 

5178 

-1 

0 

5178 
<<U.943-U.958>-2> 
0 

1521 
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143A 
FFFF 


003¢ 
0458 
19F8 
6000+ 
0000* 
ODF8 
0000+ 


103€ 
FFFF 
145D 
FFFF 


11F1 
0000* 
102D 
0000* 
O5F6 


102E 
0000* 
15F6 
FFFF 


O5F4 
042C 


00611 ; ye ia 
WORD 
00613 ;TPA rina | 
0.961: 
00615 ; janes 2 
-BLKB 
00615 ; ries 


U.96 ORD 
00617 ; TPASTYPE 

0.96 WORD 
00619 ;TPASTYPE 

0.964: . WORD 
0061B ; ASSUBEXP 


.WORD 
00610 ; ASTARGET 
0061F 


68: . e WORD 
00621 


00623 
00623 
00625 
00627 
00629 
00628 
00628 
0062p ;T 
0062F 
00631 
00633 
00635 ;DIR vet" 

i. -BLKB 
00635 ; TPASTYPE 

0.982:  .WORD 
00637 ; TPASTARGET 

0.983: .Wo 
00639 + TPASiYPE 
00638 : TPASTARGET 
0.985: .WORD 

00630 SOFD 
00630 ; TPASTYPE 


0063F s TPASTYPE 


ENP AODNPSOY 
oe gee 
al 


<= > 

v7 z7 UV 

me Ge m 
m 
“4 


TARGET 
. WORD 


5178 

-1 

0 

60 

1115 

6648 
<<U.965-U.966>=2> 
<<U.967-U. 968>-2> 
3576 
<<U.970-U.971>=2> 
0 

4158 

-1 

5213 

-1 

0 

4593 
<<U.977-U.978>-2> 
4141 
<<U.977-U.980>-2> 
1526 

0 

4142 
<<U.970-U.983>-2> 
5622. 

-1 


1524 


EEE 


a 
« 
7 
o 
. 
. 
. 
. 
o 
. 
. 
. 
. 
. 
- 
. 
7 
. 
- 
. 
. 
* 
> 
e 
o 
a 
. 
2 
. 
. 
. 
° 
. 
o 
. 
o 
. 
. 
- 
. 
. 
. 
. 
7 
. 
e 
. 
a 
. 
o 
. 
. 
. 
co 
> 
o 
7 
e 
. 
o 
. 
° 
. 
o 
~ 
o 
. 
e 
+ 
o 
- 
ce 
. 
oe 
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COPTIONS Linker options parser 
readoption - Read record from options file 


15F4 
FFFF 


042E 
11F0 
FFFF 
11F2 
FFFF 
15F6 
FFFF 


0438 
11F3 
FFFF 
11F2 
FFFF 
15F6 
FFFF 


19F8 
0000* 
FFFF 
15F6 
FFFF 


11F3 
FFFF 
0425 


Petia 


U.987: WORD 
00641 ; ; Teast vee 
WORD 


00643 ; (989: -uoRD 
00645 ; : 


0. a -BLKB 
00645 : TPASTYPE 


fh 44H .WORD 
00647 ; ;T YPE 
. any 

00649 ‘i 

vgn 
00648 

PE ORD 
00640 TARGET 

WP ed 
O064F 

PE ORD 
00651 ; fasta ARGET 
00653 ; 
00653 
00655 
00657 ; 
00659 
00658 
0065D 
0065F 
00661 
00661 
00663 
00665 
00667 
00669 
00668 
00668 
00660 
0066F 


eee en a ae 


U. 998: .WORD 
iPASTYPE 
t 


. WORD 
T 


MAORKOPVMOSO end 
‘> 
» 
fe 
cm 


te at ye Ey 
oe —<See Fee 


7: WORD 
R 


ROM 
=o 
>< 


n 

moo- 

z wv 
oScnc™ 
eo Ss 
zAmMmD @D 
owo o 


. WORD 
ET 


OrorornazZTOorororororrrDorororo 
o oro wn 
_ 
=< > 
~~ Dz Zz 
me Qe Mm 


— U0 0— Uer— 0 0 0 SS 0 OS PO OS 


—P—=enOow-- 
pt ee 


: WORD 


1068 
5620 
-1 

0 
1070 
4592 
-1 
4594 
o1 
5622 


o1 
5622 


WORD =1 
E NUMBER -OR NULL 


6648 


AX=-11 Oi ist -32 V4.0-7 
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<<U.87-U.1005>-2> 


-1 
5622 
1 


4595 
-1 
1061 


—ITO**MOOCWZ® Bl ACK TO *MICV!™T Sl KOK TO WMIOOWOZ® SB KOH TOM IOOVZ Sr KCK ITO "MIOCOW 
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1044 00671 ; TPASTYPE 
U.1012: .WO 4164 : 
0000* 00673 ; TPASTARGET 
U.1014: .WORD <<U.1013-U.1014>=2> : 
1058 00675 ; TPASTYPE 
U.1015: .WORD 4184 : 
0000* 00677 ; TPASTARGET 
U.1017: .WORD <<U.1016-U.1017>-2> : 
O44F 00679 ; TPASTYPE ; 
U.1018: .WORD 1103 3 
15F4 0067B ; TPASTYPE 
U.1019: .WORD 5620 : 
FFFF 00670 ; TPASTARGET 
U.1020: .WORD -=1 : 
0067F ;HEXNUM 
U.1016: .BLKB 0 
15F5 OO67F ; TPASTYPE 
U.1021: .WORD 5621 : 
FFFF 00681 ; TPASTARGET 
U.1022: .WORD -1 ; 
00683 ADECNUM 
U.1013: .BLKB 0 
15F3 00683 ; TPASTYPE 
U.1023: .WORD 5619 ; 
FFFF 00685 ; TPASTARGET 
U.1024: .WORD -1 ; 
00687 ; INCLUDE_QUAL 
U.851: .BLKB 0 
0535 00687 ; TPASTYPE 
U.1028: .WORD 1333 : 
19F8 00689 ; TPASTYPE 
U.1030: .WORD 6648 : 
0000* 00688 ; TPASSUBEXP 
U.1032: .WORD <<U.1031-U.1032>-2> ; 
0000* 0068D ; TPASTARGET 
U.1034: .WORD <<U.1033~-U.1034>-2> : 
ODF8 OO068F ; TPASTYPE 
U.1035: .WORD 3576 3 
0000* 00691 ; TPASSUBEXP 
U.1036: .WORD <<U.93-U.1036>-2> : 
00693 sine 
U.1033: .BLKB 0 
1028 00693 A nagsyre 
U.1037: .WORD 4136 i 
0000* 00695 pTengsanee 
U.1039: .WORD <<U.1038-U.1039>-2> : 
59F8 00697 ; TPASTYPE 
U.1040: .WORD 23032 3 
0000* 00699 ; TPASSUBEXP 
U.1041: .WORD <<U.124-U.1041>-2> 3 
00000000* 00698 ; TPASADDR 
U.1042: .LONG <<INCLUDE_DESC-U.1042>-4> ; 
FFFF OO69F ; TPASTARGET 
U.1043: .WORD <1 ; 
ODF8 O06A1 ; TPASTYPE 
U.1044: .WORD 3576 
0000* O06A3 ; TPASSUBEXP 


LNK _PROCOPT IONS 
vO0=000 


Linker options parser 
- Read record from options file 


readoption 


5DF8 

0000+ 
00000000* 

0000+ 


1029 
FFFF 
ODF8 
0000+ 


19F8 
0000+ 
0000* 
ODF8 
0000* 


102C 
0000* 
15F6 
FFFF 


8736 

01 

00000000 
00000000v 

19F8 
0000+ 


16 
1§-Se0-1984 4 
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AX-11 Blis 


LINKER. SRCJLNKOPTION. 3 2;1 


«WORD <<U.93-U.1045>-2> 


«WORD <<U.1047-U.1048>-2> 


-32 V4.0-7 


bons <<INCLUDE_DESC-U.1049>=4> 


<<U.1050-U.1051>=2> 


U.1045: 

006A5 s INCLUDE LI YY 
ol 0 

006A5 US PASTYPES 

U.1046: .WORD 24056 
006A7 ; TPASSU UBEXP 
006A9 ; TPASADDR 

0.1049: . 
OO6AD ; TPASTARG 
OO6AF aM iey 

its. -BLKB 0 
QO6AF ; TPASTYPE 

U.1052: .WORD 4137 
006B1 ; TPASTARGET 

U.1053: .WORD -1 
00683 ; TPASTYPE 

U.1054: .WORD 3576 
00685 ; TPASSUBEXP 

U.1055: WORD 
00687 ; PARSE. INCLUDE lst 

U.1047: .BLKB 0 
00687 ; TPASTY 

U.1056: .WORD 6648 
00689 ; TPASSUBEXP 

U.1057: .WOR 
O06BB ; TPASTARGET 

U.1059: . 
OO6BD ; TPASTYPE 

U.1060: .WORD 3576 
OO6BF ; TPASSUBEXP 

U.1061 
006C1 pM 

U.1058: .BLKB 0 
006C1 ; TPASTYPE 

U.1062: .WORD 4140 
006C3 ; TPASTARGET 

U.1063: 
006C5 ; TPASTYPE 

U.1064: .WORD 5622 
006C7 ; TPASTARGET 

U.1065: .WORD -1 
006C9 ;SHARE_QUAL 

U.875: .BLKB 0 
006C9 ; TPASTYPE 

U.1069: .WORD -30922 
006CB ; TPASFLAGS2 

U.1070: .BYTE 1 
QO6CC ; TPASPARAM 

U.1071: .LONG 0 
00600 s TRABACTION 

U.1072: .L 
00604 ; TPASTYPE 

U. 1074: .WORD 6648 
00606 ; ALG Frade 


WORD <<U.1031-U.1075>-2> 


U.93-U.1055>=2> 


<<U.124-U.1057>=2> 


WORD <<U.1058-U.1059>-2> 


: .WORD <<U.93-U.1061>-2> 


WORD — <<U.1047-U.1063>=2> 


: .LONG  <<SET_SHRCOPYFLAG-U.1072>-4> 


LNK_PROCOPTIONS Linker options parser 
v04=000 


readoption - Read record from options file 


0000+ 
156 
FFFF 


9337 

01 

00000000 
00000000Vv 

FFFF 

ODF8 
0000+ 


102E 
0000* 
11F1 
0000+ 
15F6 
FFFE 


102E 
0000+ 
11F1 
0000* 
15F6 
FFFF 


103A 
FFFF 
143D 


00608 ; Nt 2 at 


OO6DA Ue PASTYPE 
U.1078: WORD 
0060C ; TRPASTARGET 
U. 1079: .WORD 
OO6DE ; ARSESWAREVAL 
u.10 . -BLKB 
OO6DE ; TPASTYPE 
U.1083: .WORD 
OO6EO ; TPASFLAGS 
U.1084: .BYTE 
O06E1 ; TPASPAR 
U.1085: .LONG 
O06ES ; TPASACTION 
U.1086: .LONG 
OO6ED ; TPASTARGET 
U.1087: .WORD 
OO6EB ; TPASTYPE 
U.1088: .WORD 
OO06ED ; TPASSUBEXP 
U.1089: .WORD 
OO6EF ;GET_SYMBOL 
U.12%: .BLKB 
OO6EF ; TPASTYPE 
U.1091: .WORD 
OO6F1 ; TPASTARGET 
U.1093: .WORD 
OO6F3 ; TPASTYPE 
U.1094: .WORD 
OO6F5 ; TPASTARGET 
U.1095: .WO 
O06F7 ; TPASTYPE 
U.1096: .WORD 
OO6F9 ; TPASTARGET 
U.1097: .WORD 
OO6FB ;GETSYM1 
U.1092: .BLKB 
OO6FB ; TPASTYPE 
U.1098: .WORD 
OO6FD ; TPASTARGET 
U.1099: .WORD 
OO6FF ; TPASTYPE 
ht WORD 
00701 ; TPASTARGET 
U.1101: WORD 
00703 ; TPASTYPE 
U.1102: .WORD 
00705 ; TPASTARGET 
U.1103: WORD 
00707 pOvALYAL SEF 
U.1051: .BLKB 
00707 Paty + ee 
U.1104: .WORD 
00709 Mt meet 
U.1105: .WORD 
00708 ; TPASTYPE 


igbeor19Re 00:98:5 


~ -11 Bliss-32 V4.0 
LINKER. 
<KU.1076-U.1077>=2> 

5622 


-27849 


<<SET_SHRCOPYFLAG=-U. 1086>-4> 
-1 

3576 

<<U.93-U. 1089>-2> 

0 

4142 
<<U.1092-U.1093>-2> 
4593 
<<U.1092-U.1095>-2> 
5622 

-2 

0 

4142 
<<U.1092-U.1099>-2> 
4593 
<<U.1092-U.1101>-2> 
5622 

-1 


l 
SRC LNKOPTION. if 231 


rae 


LNK_PROCOPTIONS 
yocz000° 


Linker options parser 


readoption - Read record from options file 


FFFF 


81F7 
00000000v 
81F1 
00000000Vv 
81F0 
00000000v 
81ED 
00000000Vv 
85F6 
00000000v 


11F7 
FFFF 
B1F1 
00000000v 
81F0 
00000000v 
85ED 
00000000v 


0000+ 
0000+ 
0000+ 
0000+ 


00700 
0070F 
es 
00711 
00715 & 
00717 ; 
00718 ; 
0071D ; 
00721 
moves t 
00727 
00729 
00720 
00720 ; 
re 
00751 
00735 
00737 ; 
00739 ; 
ere i 
0073F ; 


00000 
00000 
00000 
00002 


00006 


U.1106: .WORD 
; TPASTARGET 

U.1107: .WORD 
sERRORPARSE 1 
U.93: -BLRB 


KEY_TABLE: : 
; TPASKEYO 
; TPASKEY 


0.79: — .WORD 
; TPASKEY 


STPASKEY” 


ifedeo-19Re 90:92:56 


5181 
1 

0 
-32265 


<<MISSINGARGERR-U.1109>-4> 


-32271 


<<SYNTAXERR=-U.1111>-4> 


-32272 


<<SYNTAXERR=U.1113>-4> 


-32275 


<<SYNTAXERR=U.1115>=4> 


-31242 


<<SYNTAXERR=-U.1117>-4> 


0 
4599 
1 
-32271 


<<SYNTAXERR=U.1121>-4> 


~32272 


<<SYNTAXERR=U.1123>-4> 


-31251 


<<SYNTAXERR=U.1125>-4> 
_LIBSKEYO$,NOWRT, 


0 
<U.78-U.1> 
<U.99-U.1> 
<U.117-U.1> 


AX-11 Bliss-32 v4.0 
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AX-11 Bliss-32 V4.0-74 


2 7 
LINKER. SRC ILNKOPTION.B32: 1 age 3) 


U.191: .WORD <U.190-U.1> : 
stm bee WORD <U.231-U.1 
P gt <u. “U.1> ; 
qos Soaees jib 8ore WORD U.249-U.1 
° : . <u. “U1? P 
10 oe 0000 tb8Or WORD <U.289-U.1 
= : . <u. “U.1> é 
0000* OOO0E ; TPASKE 
0000* 00010 ; TPASKEY 
0000* 00012 pTRASKEY 
0000* 00014 ALS ee 
0000* 00016 ; TPASKE 
0000* 00018 ; TPASKEY 
U.360: .WORD <U.359-U.1> : 
0000* OO01A ; TPASKEY 
U.376: .WORD <U.375-U.1> 
0000* O001C ; TPASKEY 
U.396:  .WORD <U.395-U.1> : 
0000* OOOIE ; TPASKEY 
0000* 00020 ; TPASKEY 
U.415: WORD <U.414-U.1> : 
0000* 00022 ; TPASKEY 
0000* 00024 ; TPASKEY 
0000* 00026 ;TPASKEY 
U.446: .WORD <U.445-U.1> : 
0000* 00028 ; TPASKEY 
U.460: .WORD <U.459-U.1> 
0000* 0002A ; TPASKEY 
U.489: .WORD <U.488-U.1> : 
0000* 0002C ; TPASKEY 
0000* O002E ; TPASKEY 
U.505: .WORD <U.504-U.1> ; 
0000* 00030 ; TPASKEY 
0000* 00032 ; TPASKEY 
U.521: .WORD <U.520-U.1> : 
0000* 00034 ; TPASKEY 
U.529: .WORD <U.528-U.1> : 
0000* 00036 pTEASKEY 
0000* 00038 pTeReceY 
U.545: .WORD <U.544-U.1> : 
0000* 0003A A TERaKeY 
0000* O003C ; TPASKEY 
U.561: .WORD <U.560-U.1> : 
0000* OO03E ; TPASKEY 
U.569: .WORD <U.568-U.1> 3 


LNK_PROCOPTIONS Linker options parser IB-ge -1984 AX-1 ~ 
vO4= restost ton - Read record from options file at 99: 4 38 PINKER SRE Licobtion. 6 B32;1 sie 33 


0000* 00040 ; ATeAgKey 


0000* 00042 ; siBasiey" ee ene 
. = . > Pi 
ocd ae: sipageey WORD <U.592-U.1 
. —_— <U. =“U.1> ’ 
mene *' swe ee ee 
P 5 a <u. “U.1> Py 
bie Nemes PW WORD U.608-U.1 
* : . < « "UU. > P 
eee. MA od WORD U.616-U 
s : . < . ans mS Z 
0000* 0004C WA 
edie Vine ae ree 
e : a < . “U. > ; 
0000* 00050 ; TPASKEY 
U.641: . WORD <U.640-U.1> J 
0000* 00052 ; TPASKEY 
U.649: WORD <U.648-U.1> : 
0000* 00054 ; TPASKEY 
U.657: WORD <U.656-U.1> : 
0000* 00056 ; TPASKEY 
0000* 00058 ; TPASKEY 
0000* OO0SA ; TPASKEY 
U.681: .WORD <U.680-U.1> : 
0000* OO00SC ; TPASKEY 
0000* OOOSE ; TPASKEY 
U.733: WORD <U.732-U.1> : 
0000* 00060 ; TPASKEY 
.749: WORD <U.748-U.1> 3 
0000* 00062 ; TPASKEY 
U.777: .WORD <U.776-U.1> 3 
0000* 00064 ; TPASKEY 
U.795: . WORD <U.794-U.1> : 
0000* 00066 ; TPASKEY 
U.858: .WORD <U.857-U.1> ; 
0000* 00068 ; TPASKEY 
U.866: .WORD <U.865-U.1> : 
a jroo” WORD U.1025-U.1 
_ ee <u. “U.1> : 
0000* 0006C U aPAgeey 
U.1067: .WORD <U.1066-U.1> 3 
0000* OO06E ; TPASKEY 
U.1081: .WORD <U.1080-U.1> 


-PSECT S$PLITS,NOWRT,NOEXE,2 


14 Q0000 P.AAA: .BYTE 20 : 

63 69 66 69 74 6€ 65 64 69 20 65 67 61 6D 49 00001 -ASCII \Image identification\ : 
6—E 6F 69 74 + Bete : 

A Bat P.AAB: .BYTE 10 : 

65 6D 61 6€ 20 65 67 61 6D 49 00 8 -ASCII \Image name\ : 

07 00020 P.AAC: .BYTE 7 : 


6C 
73 75 6C 63 20 74 6C 75 61 


3 6E 6F 69 74 70 6F 20 72 
45 4C 49 46 20 

4E 49 

48 


58 
64 65 74 72 6F 


t— Linker options parser 
v04 readoption - Read record from options file 


65 
66 


65 
4E 
4D 
43 


41 
70 


6€ 
20 


68 
af 
5F 
54 


6E 
65 


6E 
49 
4F 
41 
45 
SF 
75 
63 


61 


* 
69 
54 
52 
4D 
53 
ah 
73 
61 


68 13 
e 3 
65 74 
F 
4C 3C 
8 
50 4F 
08 
5A 44 
07 
53 47 
05 
4F 49 
07 
53 49 
55 
6— 5 
33 
7% 5 
00000008 
00000004 


OOD IOP PAA OE EAI PONT 
WNINOM OC0-O@OVOWOWoono— 


v 
. 

> 
ea 
J 
@ 
~< 
“~ 
mm 


-AAE: BYTE 


TT 2 VR ww COU 
Ca ofa Y ee 6 eee 
aa 
> 
= 
— ee 


TPARSE_BLOCK: 
LONG 
“LONG 
“BLKB 
CMDBUF FER: 
OPTLINEDESC: 
F ILEFLAGSADR: 
OPTRABADR: 
INCLUDE _DESC: 
CURCOLLECTDESC: 
CURPSECTDESC: 
CURSYMDESC: 
CURSYMSNB: 
FILESPEC_DESC: 
OPTIONF ILENAME : 


-BLK 
. QUOTEFLAG: 


. LK 
CLUOPTFLAG: 
SHARECOPY: 
PROTECTFLAG: 

-BLKB 


75 AX-11 Bliss-32 V4.0-74 
2 LINKER.SRCJLNKOPTION.832;1 


\ hannel\ 
\Page fault cluster\ 


cL inher option>\ 
\OPTION FILE\ 
\DZRO_MIN\ 
\GSMATCH\ 

\IOSEG\ 

\ISD_MAX\ 
Sineupparted 
\Stack\ 

SOWNS ,NOEXE ,2 


PF PF PF PF KP FF HF HF HF CO HF SF OO LF WSLS 


row 


ROCOPTIONS Linker options parser 


on = Read record from options file 


Sep-19 Ax-11 a =32 v4.0-7 
ifoBeoct9e 0:22:56 YANG] BL ing=32 ye 08748, 
-PSECT S$GLOBAL$,NOEXE,2 
00000 LNKSGL_ a ‘ 
00004 LNKSGL ttn 
00008 LNKSGL wire 
OOO0C LNKSGL _oPTEXT E:: 
ADDRESS Lakeet. _OPTEXTP 
00010 LNKSGL ~SHLEXTRA: 
00014 LNKSGW eth 
00016 LNKS$GW ofOareat 
00018 LNK$GQ_PRIVS: 
LONG. -1,- 
00020 LNKS$GL vin 
00024 LNKSGL ant es 4 
00028 LNKSGL_PSCDFLST: 
-BLKB é 


—_— 


LNKSK_MAXCHANS== 4095 
LNKSK-MAXSTACK== 65535 
LNKSKIMAXIOSEG== 65535 
LNKSK-MAXISDS== 63535 
LNK$K~MINDZRO== 65535 
LNKSKIMAXMAJID== 255 
LNKSKMAXMINID== 16777215 
LNK$K"MAXOPTLIN== 32767 
LNK$K ~MAXPF C== 255 
IMAGE-IDENT_NAME= P.AAA 
IMAGEN E=  P.AAB 
ANNELS_NAME= P. AAC 
CLUST NAME = “AAD 


ERPFC_NAM P 
DEFINED BY OPTION= P.AAE 
OF pone TLE STRINGS P.AAF 
DZROMIN P.AAG 


GSMATCH” NAME P.AAH 
1OSEG_NAME= P.AAI 
ISDMAR NAME= P.AAJ 
UNSUPPORTED -NAME = Cae 
STACK _NAME = 


P.A 
~EXTRN INPUTFILE, CRFSINSRTREF 
~EXTRN CRESINSRIKEY LIBSINSERT_TREE 
~EXTRN ern OOKU 


~EXTRN SALCOBLR LNKSALLOC_PDD 
*EXTRN te Sartoee USTER 
*EXTRN ENKSCOMPAR P 


£ DD 

-EXTRN LNKSCLUNAMCAP, LNKSINSERT_CLU 
~EXTRN LNKSDEALALK,. CNKSINSUDF SYA 
-EXTRN LNKSINSERT, LNKSSEARCH 

EXTR tNKSSETLIBRIN. LNK$SETSHRBLIN 


LNK_PROCOPTIONS eee tions parser 
vouz Ton = Res 


readoption - Read record from options f 


58 00000000" EF 
5E ¢ 

000000006 00 01 
5? 50 

53 04 AC 
6 68 
6 $é A2 
04 AS é As 

48 5 
10 000000006 4s 4 
9 000000006 00 

000000006 98 01 
0 63 
50 06 

4001 BE 
000000006 00 2 
56 6E 

6 
4 Ag e3 

6 4 86 g 
00000000" FF 6 


ive TECRSSIRRG QOTH:38 


-EXTRN 
-PSECT 
O1FC 00000 READOPTION: 


OVNVWIOO™WOWOMMMoWocVoVT"VOOO 
OWO LOWDWOOCWIlO—OOOooo0owo 
SOOOOOOOCOCOOCOCOOOOOoOoOoooO 
COOOCoOoOoOoCOoCOoOSoOoOoOooooOoooo 
SOOCCSOSOOOOOCOCSCOOOOCOoooo 
POW nn & & & WANN SS -* | © 


WS ONES OOWNOE FWD OW™OOVIMO 
—_ 
wr 


AX-11 Bliss-32 V4.0-7 


LNK SUPCASE D LIBSPUT_OUTPUT 
LIB Sys 


PARSE; 
LNK$GB_MATCHCTL 
LNKS$GL-MATCHID, LNKSGL_DEFCLU 
LNKS$GL_-CURCLU, LNKS$GL_CLUTREE 
LNKSGL-CTLMSK, LNKSGL-FVMLST 
LNK$GW-STACK, LNK$GT_PSCSTRING 
LNK$GT-CLUSTRING 
LNK$GT~SYMSTRIN 
LNKSGT_INGNAM, LNKSGT IMGID 


TOOLON 
$- Sette LINS_CRFERR 


ILLNAMELEN 

=LINERR LINS MULCLUOPT 
“OPTIGNSHR LINS. OPTIGNSYS 
OPT aN Win YNERR 
OPTVALERR R, 5 oer SPTARGHIS 
PR RE DERR 
=SHncPY IGN, LIAS S 


$- 
$- 
$- 
$- 
$. 
$- 
$- 
SSGET 

SCODES ,NOWRT,2 


Save R2,R3,R4,R5,R6,R7,R8 
OPTR AD , RB- 


$ 
#4, LNKSGL_CTLMSK+1, 1$ 
LNKSGL_SYSINPUT_FLAG, 1$ 


LIBSPUT OUTPUT 
(R$) LOCKSIZE 


R 

(R , (R6) 
a4(R3) 

Re ss eer > oprent 


LINKER. SRCJLNKOPTION. 5 2:1 


HRINSYS 
HRSEPCLU, LAKERS _MAX_F ILENAME_LENGTH 


row 3 


LNK PROCOPTIONS Linker options parser if: pep 1384 99: ¢¢: s AX-11 Bi iss -32 V4.0-7 A82. .4 


readoption - Read record from options file LINKER-SRCd LNKOPTION.B 
E VL , LNKSGL_ x 
00000000" &F ? A poy $GL_OPTEXTE 
0001827A 8F 0 o} 73 23: SNES TATUS, #98938 
02 § of is CMPB (AP), #2 
1F F BLSSU_ 4$ 
08 ac 3 1 TSTL 8(AP) 
20 1 084 BEQL $3 
0c As DD 000 PUSHL 12(R2) 
57 DD 0008 PUSHL STATUS 
24 AB DD 00088 PUSHL OPTIONFILENAME 
01 ODD 8 PUSHL #1 
08 Ag DD 000 PUSHL ERRORSIGNA 
00000000G 00 05 FB 0009 CALLS #5, LIBSSIGNAL 
17 11 QOO9A BRB 4$ 
0c 6 DD 0009C 3$: PUSHL 12(R2) 
57 DD 0009F PUSHL STATUS 
24 AB ODD 4 PUSHL OPTIONF ILENAME 
01 DD OO0A4 PUSHL #1 
00000000G 8F DD O00A6 PUSHL o, Ins Re READERR 
000000006 00 05 FB seit CALLS , LIBSSTOP 
50 57 DO 000835 4$: MOVL STATUS, RO 
04 00086 RET 


Routine Size: 183 bytes, Routine Base: S$CODE$ + 0000 


; 942 1054 1 


roe 


1038 
1020 
1040 


1042 


16 
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: 9446 1055 1 %sbttl "LNKSPROCOPTNS -- entry point to options parsing’; 

; 945 1 : 1 global routine \nk$procoptns ( optfilename, fileflags, optionrab) = 

: oe 1088 5: Pesin 

; 948 1985 ! This routine parses the options file 

; 949 1060 : 

; 950 1061 ! Inputs: 

; 951 1908 : : 

3 326 106 : opt filename The address of the =r descriptor for the options file 

3; 1064 ' fileflags Address of file control tags 

3 228 13o2 optionrab Address of the RAB connected for GET sequential 

; 956 1067 ! Outputs: 

; 957 1068 : 

3 228 19e8 Linker data structures created according to inputs found in options file. 

: 960 1894 map 

; 961 1078 optfilename : ref bblock, 

; 308 107 fileflags : ref bblock, 

; 96 1074 optionrab : ref bblock; 

; 964 1075 2 ocal 

; 965 1076 blockaddr : ref bblock, 

; 966 1077 blocksize, 

; 967 1078 Linedesc : bblock Cdsc$c_s_blnl], 

: 968 1079 2 commentline, 

; 969 1080 § rmsstatus; 

: 970 1081 

: 971 1082 2 fileflagsadr = .fileflags; ‘Put file flags address into own storage 

:; 97 1083 2 optrabadr = .optionrab; 'Put RAB address in own storage 

3; WT 1084 2 ops lent * )gnene = .optfilename; !Put string descriptor address into own storage 
; one Wee § 8 $fill (0, dsc$c_s_bln, Linedesc); ‘Clear out the descriptor 

: 976 1087 § ! Copy option file name out to the option text List 

; 977 1088 : 

: 978 1089 2 

; 979 1090 2 if .lnk$gl_ctlmsk Clnk$v_long] !If creating a long map 

; 980 1091 ; then 

; 981 1098 begin : : 

; 982 1093 3 blocksize = oeb$c_size + .optionfilename ([dsc$w length + 2; ‘Figure size of block to allocate 
; #983 1094 ink$alloblk (.blocksize, blockaddr); ‘Allocate i 

; «984 1095 blockaddr Coeb$l_nxtoebi = 0; ; 2 } 
; 985 1096 blockaddr Coeb$w_bytcnt) = .optionfilename Cdsc$w_length] + 2; !Set size of Line into descriptor 
; 986 1097 4 begin 

; 987 1098 4 ind 

; 34 544 ? filenamestring = blockaddr Coeb$t_text] : vector [, byteJ; 

; 990 1101 4 eionenogte ing CO] = fascii’<'; 

; «991 1108 4 ch$move (.optionfilename Cdsc$w_length) i Copy the filename out 

; 99 1103 4 -optionfilename Cdsc$a_pointer], tilenamestring Pb) Fe 

: 445 1138 4 filenamestring C.optionfilename Cdsc$w_length] + 1] = %ascii'>’; 

3 end; 

3; 6995 1106 ink$gl_optexte Coeb$l_nxtoeb] = .blockaddr; 'Link the block into the end of the List 
; 996 1107 ink$gl_optexte = .blockaddr; ! and make it the last one 

; 997 1108 end; 

; 998 1109 

; 999 1110 2! ea cradle 
; 1000 1111 ! Allocate a buffer. This buffer will be used to pack continuation Lines into one continuous Line 


LNK_PROCOPT IONS L inaer off tions parser ae -1984 AX-11 Bliss-32 V4.0 P 64 
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: 1001 111g 
: 1906 1337 LnkSalloblk (Lnk$k_maxoptlin, cmdbuffer); 
3 1904 1119 | Loop, reading and parsing commands until end of file 
3 1208 Wie 3 while fi yeainge = readoption (Linedesc)) neq rmsi_eof do 
: 1008 1119 tperse. block jEtpast> stringent] = 0; 'Zero Line Length 
3; 1009 1120 tperse, “block toast. stringptrd = .cmdbuf fer; 'Point TPARSE to the buffer 
; 1010 1121 quoteflag = false; 'Not inside double quotes 
: ots 1 ¢ cluoptflag = acltie iNot processing cluster option 
: 1018 1124 if .linedesc Cdsc$w_length] neq 0 'If Line is not null 
3; 1014 1125 then 
5 34 i § scanline (Linedesc, commentline); ! scan the Line and store in the buffer 
: 1017 1128 if .tparse_block Ctpa$l_stringcnt] neq 0 
: 1018 1199 ms tient Dt ™ 
: 1019 1130 4 begin 
: 1020 1131 4 ch$move (dsc$c_s_bln, tparse_block trpeet. stringent], 
: 1021 ET 4 ake a copy of the options Line descriptor 
3 1os6 1133 4 optlinedesc); 
; ez W130 : ink$upcase_d (tparse_ block Ctpa$l_stringcnt]); 'Convert string to upper case 
: 1058 1136 4 | Parse the command Line 
: 1026 1137 4! 
$ Hi 44 1138 ? if not Lib$Stparse (tparse_block, state_table, key_table) then syntaxerr (); 
; S44 Bb : Reset current cluster to default cluster at end of each options Line 
: 1031 1148 4 ink$gl_curclu = Lnk$gl_defclu; 
: 1036 1143 3 end; 
: 103 1144 § end; 
3: 1034 1145 ‘ 
; 1035 1146 2 ! Deallocate the buffer 
3: 1036 1147 2! 
3; 1037 1148 § Lnk$dealblk (Lnk$k_maxoptlin, .cmdbuffer); 
; 1038 1149 return true 
3; 1039 1150 1 end; 'Of Lnk$procoptns 
07FC 00000 -ENTRY LNKSPROCOPTNS, Save R2,R3,R4,R5,R6,R7,R8,- ; 1056 
5A 000000006 00 9€ 00002 MOVAB LNKSALLOBLK, R10 ; 
59 00000000" EF 43 00009 MOV TPARSE BLOCK+8, R9 : 
5E 0¢ 01 SUBL #16, S ; 
28 A9 08 ac 7D 0001 FILEF LAGS. cf ILEFLAGSADR > 1082 
0 a9 04 ac 00 1 MOVL OPT ii OPT IONF ILENAME 3; 1084 
00 6E 1 00 2c 00 1p mMovcS #0, m6, #8, LINEDESC ; 1085 | 
3F 000000006 06 59 69 4 BLBC —LNKSGL_CTLMSK+1, 1$ : 1090 | 
28 0 C 8 B MOVZWL 3 PTIORE ILENAME , BLOCKSIZE ; 1093 
5 8 CO 0002F ADDL2 BL Ock SIZE 3 
4001 F BB 000352 PUSHR M<R ~5P> : 1094 


inca eiadagscmeniiasetaie a SPORE DS ene as = 
: 1 
“Woe=000 7P"10NS Linker options parser caren 18-Sep-1984 00:49:38 AX-11 Oi legrse v4.0- Page , 


; Routine Size: 247 bytes, Routine Base: S$CODE$ + 00B7 


0-74 
LNKSPROCOPTNS == Entry point to options -Sep-1 LINKER. SRCJLNKOPTION.B32;1 (4) 
gh 02 FB 6 CALLS #2, LNKSALLOBLK $ : 
| 7 oF D0 ? HOVL BLOCKADDR, R + 1095 : 
5 50 Ad DO L_ OPTIONFILENAME, R8 + 109 ; 
06 aA? és 02 At 0048 ADDUS RO RBI OCR OS ; ick ; 
| é 06 A 3 004 AB 6(R7), RO > 1099| ; 
66 3c 9 48 MOVB #60, (R6) + 1101 ; 
01 Ab 04 BB 68 28 OO4E MOVC3 (RBS, a4(RB), 1(R6) + 1103 ; 
50 C 00054 MOVZWL (RB) RO + 1104 ; 
01 A046 : 6 00057 OV #62, 1(RO)CR6] : : 
| 00000000" FF DO 00 5¢ MOVL 7, @LNKS$GL_OPTEXTE + 1106 : 
00000000" EF 57 00 00 6 MOVL _—s—R/,_LNKSGL_OPTEXTE + 1107 ; 
1¢ AD OOF A 1$ PUSHAB Cube FFER + 1113 ; 
7E 7FFF 4 6BF 3 90060 MOVZWL #32767, =< : ; 
6A 02 FB 000 : CALLS #2, LNKSALLOBLK j : 
08 AE OF 9007 2$ PUSHAB LINEDESC : 1117 ’ 
FECC CF 9} FB 0078 CALLS #1, READOPTION 3 ; 
56 0 D 43 MOVL RO, RMSSTATUS 3 ; 
0001827A = BF 56 D1 00080 CMPL RMSSTATUS, #98938 ; : 
58 13 00087 BEQL ; ; 
69 04 00089 CLRL  TPARSE_BLOCK+8 + 1119 ; 
04 ad 1c AQ bd 00088 MOVL § CMDBUFFER, TPARSE_BLOCK+12 : 1120 ; 
54 a9 7C 00090 CLRO QUOTEFLAG + 1121 ; 
08 AE B5 00093 TSTW INEDESC + 1126 ; 
0D 13 000% BEQL $ : : 
04 AE 9F 0009 PUSHAB COMMENTLINE + 1126 ; 
OC AE 9F 0009B PUSHAB LINEDESC ; : 
00000000V EF 02 FB 0009 CALLS #2, SCANLINE ; 
69 D3 OOOAS 38: TSTL § TPARSE_BLOCK+8 + 1128 
CC 13 OO0A7 BEQL : 
20 a9 69 08 28 000A9 MOVC3 #8, TPARSE_BLOCK+8, OPTLINEDESC + 1131 
9 DD OO00AE PUSHL > 1134 
000000006 00 01 FB 00080 CALLS #1, LNKSUPCASE_D ; 
00000000' EF 9F 90087 PUSHAB KEY_TABLE : 1138 
00000000' EF 9F 000B PUSHAB STATE TABLE : 
FB AD OF O000C PUSHAB TPARSE BLOCK ; 
000000006 00 93 FB 9006 CALLS #3, LIBSTPARSE : 
07 0 €8 000CD BLBS RO. 4$ ; 
00000000V EF 0 FB Bp 808 CALLS #0, SYNTAXERR b 
000000006 1060 000000006 00 9€ 00007 4s: MOVAB LNKSGL_DEFCLU, LNKSGL_CURCLU ; 1142 
1 11 0002 BRB $ : 111 
1c «Ad bo SOEs 5$: PUSHL CHDBUEFER > 1148 
7E 7FFF §68F 63C:«OO0E MOVZWL #32767, -(SP) : 
000000006 90 02 FB OO0E¢ CALLS #2, LNKSDEALBLK ; 
0 DO OO0F MOVL #1. RO > 1149 
04 000F6 RET : 1150 | 
| 
| 
| 


—-————————_—— ——- 


1 
| LNK_PROCOPTIONS Linker options parser Ig-ge -1984 00:22:5 AX-11 Bliss-32 V4.0-74 Page 66 
_ v04=000 orm complete opt ions Line, handling continuati ~Sep-19 4 99:49:38 LINKER. SRCILNKOPTION.B 2;1 . (| 


| 
1 1 &sbttl "Form complete options Line, handling continuations’; | 
routine scanline (indesc, commentline) = 

begin | 
This routine scans a line and handles continuations. | 
Inputs: | 

indesc address of string descriptor for input Line 

Outputs: 


pperen pyacestpen. stringent] set to count of characters in .cmdbuffer 
e e 


WN (SO OONAUESWN—OODNOUE WN 
Pete ee Ge Ge Fe Oe Se Se Se Se Se Se ee SHS Se ee Se Fe Se Se ee Se Se Se Se ee 


PEPRERERE SESS SIGS EERERERER 


F 
: 1 1 1 
s 9 11 : 
, 4 1154 
3 1 1155 
; 3 1156 
3 % 1157 
: 1 1158 
: 1 1159 
. 5 1160 
3; 1 1161 
3; 1 1196 
3; 1 116 
3 7 1164 comment lin set true if Line was a comment Line (used in recursive 
: i 1165 internal calls only) 
: ier Blanks and tabs are stripped from Line, continuation Lines processed. | 
3; 7 1169 : | 
: : a 3 Routine to store a character into the buffer 
2. 1 1176 routine storecharacter (cchar) = 
9 117 egin 
; 3 1174 if .tparse_block Ctpa$l_stringcnt] eql lnk$k_maxoptlin - 1 | 
3 1 1175 3 then 
s 1 1176 3 
; : HY A ; -optionfilename); 
: 1069 1179 4 if (.cchar neg Ic' * and .cchar neq ic" ') !If character is not space or tab | 
; 1070 1180 3 or .quoteflag ! or we are inside double quotes 
; 1071 1181 3 then 
; 107@ 118@ 4 begin 
; 107 1183 4 bind 
: 1076 1184 4 charvector =_.tparse_block ([tpa$l_stringptr] + .tparse_block Ctpa$l_stringcnt] : vector C, 
; 1075 1185 4 byte]; 
3; 1076 1186 4 
: 1077 1187 4 charvector (0) = .cchar; ‘Store the character 
3 iors By ? tparse_block Ctpa$l_stringcnt] = .tparse_block Ctpa$l_stringcnt) + 1; 
; 1080 1190 4 if .cchar eql %c*'" 'If double quote, then toggle the quote flag 
: 1082 1192 i aie t .quotefl | 
; quoteflag = not .quoteflag; 
: 1083 1198 d; ° 
: 1084 1194 return true 
3; 1085 1195 end; ‘of storecharacter 


0004 00000 STORECHARACTER: 
WORD 


‘ Save R2 
52 00000000' EF 9 0000 MOVAB TPARSE_BLOCK+8, R : | 
OOOO7FFE BF 62 0} 0 03 CPL TPARSE-BLOCKS8. 8766 117% | 
50 AS DD ° 2 PUSHL OPTIONFJLENAME : 1177) 
01 DD 1 PUSHL #1 : 1176) 


| 
signal_stop (Lin$_cmdtoolong, 1, | : 
| 


OO 


| > 1 | 
| LNK_PROCOPTIONS Linker options parser 16-Sep-1984 00:22: AX-11 Bliss-32 V4.0-74 Page 67 
| V04=000 Form complete opt ions Line, handling continuati 82888-1984 99:79:39 LINKER. SRCJLNKOPTION.B52;1 ’ Ai 
| | 
000000006 DD 17 PUSHL #LINS_CMDTOOLONG ; 
| 000000006 99 : FB 1D CALLS i, LIBSSTOP : | 
06 AC OD 4 1$ CMPL CHAR, 3 1179) 
06 13 8 BEQL ; 
| 09 04 AC D1 0003A CMPL  CCHAR, #9 ; | 
04 ig F BNEQ 3 
16 54 A2 € ¢§ BLB QUOTEFLAG, 4$ : 1180 
50 04 Ag 62 ¢1 00 $ ADDL3 TPARSE_BLOCK+8, TPARSE_BLOCK+12, RO 7 1184 
| 6 Oc AC 90 82 9 MOVB CCHAR, (RO) 3; 1187 
62 06 0003D INCL TPARSE BL OCK+8 > 1188 
| 22 04 AC 01 9003F CMPL  CCHAR, #34 ; 1190 
05 ig 0043 BNEQ : 
54 ae 54 Ae D 4 MCOML QUOTEFLAG, QUOTEFLAG 3; 1192 
5 01 00 O004A 4$: MOVL #1, RO 3 1194 
04 0004D RET 3 1195) 
; Routine Size: 78 bytes, Routine Base: SCODE$S + O1AE | 
>: 1086 1196 ! 
3; 1087 1197 ! Main body of scanline 
; 1088 1198 : 
; 1089 1199 map 
; 1090 1200 indesc : ref bblock; 
: 1091 1201 Local 
: 1095 1606 rmsstatus, 
3; 109 120 stringstart, 
: 1094 1204 cchar : byte, 
3 13e? 1692 tempdesc : bblock Cdsc$c_s_bln]; 
; ib ad 314 if .indesc Cdsc$w_length] eql 0 then return (.commentline = true); | 
: 1099 1209 ch$fill (0, dsc$c_s_bln, tempdesc); ! Clear descriptor 
: 1330 isi? stringstart = .tparse_block tpa$l_stringcnt); 
: 1108 a i Copy the Line into the command buffer a character at a time, watching for 
; Bt isi? : continuation Lines and comments. | 
: 1105 1215 2  incru i from 0 to .indesc Cdsc$w_length] - 1 do 
: 1106 1216 begin 
3 110 1217 nd 
; ies 1si8 Linebuffer = .indesc Cdsc$a_pointer] : vector C, byte); | 
: ny 1$30 4 (cchar = .linebuffer C.iJ) eql Zascii'!' 'If character is comment character 
; en 
; We 1 ¢ exitloop (.commentline = true); ! then done with Line 
; abt : ? if -cchar eql Zascii'-" 'If character is a possible continuation character 
Ps inen 
3; 1115 1225 4 begin ! then check it out | 
; 1138 : 3 ? if .i eql .indesc Cdsc$w_length] - 1 ‘Are we on the last character? 
5 or 
; 1118 1228 5 begin ! or is everything following it blank or a comment? 
3 1119 1229 local 
3; 1120 12350 status; 
£1453 1533 Tneru f fron’ 1.¢ 1 te..tadesc Ceecty_teneth) = 1 és 
; ncru rom . . inde we - 
5 3% § 1 g if .linebuffer (.4) eql isciie ft's a continuation if comment follows 


~ 


1 
LNK_PROCOPTIONS Linker options parser 1§-Sep-19 4 00:49 338 aye Bliss-32 V4.0-74 Page 98 
v04=000 Form complete options Line, handling continuati 5-Sep-1984 22:11: LINKER. SRCJLNKOPTION.B52;1 (5) 
; 1124 1234 «(5 then . 
; 13 5 : 5 [ exitloop (.commentline = status = true) | : 
3 else ° 
3 11 5 1 5 if .linebuffer C.j] neg %ascii'’ ' ! but not if it's not a space ° 
3 1; : : 3 and .linebuffer <9) neq %ascii' ’ ' or tab ° 
; 1150 1240 exitloop (.commentline = status = false); | ° 
> 1131 1241 Status : 
3 13 ¢ 1 ry end : 
: 11 124 : 
: 1136 1244 ! It is a continuation Line ° 
> 1135 1245 : 
. 71 1 28 4 then a 
3; 1137 1247 & while true do 
; 1138 1248 5 begin : 
3 1139 1249 5 rmsstatus = readoption (tempdesc, Lin$_premeof); ‘Read next Line 
3 be : 9 : scanline (tempdesc, .commentlines; !Scan the Line 
3 iis 1526 5 if not ..commentline 'If we did not just 
3 116 1253 5 then 
3 1144 1254 5 return true; ! scan a comment then done 
3 1145 te) im! 
; 1146 1256 5 ; ; : 
3 1147 1257 § ! Not a continuation Line 
3; 1148 1258 5 ! 
3 1149 1259 4 lse 
; 1150 1260 4 storecharacter (.cchar); 
3: 1151 1261 4 nd 
3 1138 1 66 lse 
3 115 126 storecharacter (.cchar); 
3 1154 1264 end; : . 
$ 1195 1265 if ..commentline !If we just scanned a comment Line 
3 1136 1666 and (.tparse_block Ctpa$l_stringcnt] eql .stringstart) ! with nothing else on it 
; en 
; 1158 1268 : return (.commentline = true) 
3: 1159 1269 else 
: 1160 1270 begin 
> 1161 1271 -cemmentline = false; 
3 Bb \g7¢ 3 return true 
3; 116 1275 2 end; 
3 1164 1274 (1 end; 
O7FC 00000 SCANLINE: 
-WOR Save R2,R3,R4,R5,R6,R7,RB,RI.RI0 3 152 
5A 00000000" EF 9E 9002 MOVAB ‘TPARSE BLOCK +6, R10 ; 
22 FDF 68 r 0 ae by READOPTION, R : 
04 f ° *f TSTW NDESC : 1207 
14 BNEQ : 
a @.- 1 16 1$: MOVL #1, @COMMENTLINE F 
OOAB QOOTA BRwW 14$ ; 
08 00 6E pt c 638 2: MOVCS #0, (SP), #0, #8, TEMPDESC : 1209 


SS Ss-=—sssssssssssessssssessesessssssssnseestsse 


& F 1 
| LNK =PROCOPT 1ONS Linker options parser 16-Sep-1984 00:22: AX-11 Bliss-32 V4.0 
¥ v04=000 Form complete options Line, handling continuati ~3007 1383 99:99:38 LINKER.SRC LNKOPTION. iF} 231 
37 6A 00 3 MOVL §_ TPARSE_BLOCK+8, STRINGSTART 
| 5 04 BE 3¢ 00086 MOVZWL @INDEST, R 
A DECL 
53 04 AC 5 MOVL _——INDESC, R3 
3 D4 CLRL 
11 BRB 1$ 
50 04 B342 9A 3$ MOVZBL @4(R3)CI), RO 
56 30 9 MOVB RO, CCHAR 
21 1 0003¢ CMPB RO, #33 
5 \3 O3F BNEQ 
08 BC 04 pg 041 MOVL #1, @COMMENTLINE 
20 56 91 ee 4$ CMPB = CCHAR, #45 
: te 004A BNEQ 10$ 
55 D1 0004C CMPL RS 
6 13 0004F BEQL 
54 1 pO 00051 MOVL #1, STATUS 
50 2 dO 00054 MOVL J 
24 11 00057 BRB 
51 04 B340 9A 00059 5$ MOVZBL a4 (R3)CJ3, R1 
21 51 91 0005€ CMPBOR1, #3 
09 12 00061 BNEQ 
54 01 DO 00063 MOVL #1, STATUS 
08 BC 01 DO 00066 MOVL #1, @COMMENTLINE 
18 11 0006A BRB 
20 51 91 0006C 6$ CMPB RI, ‘#32 
oc 13 0006 BEQL $ 
09 51 91 00071 CMPB RT, #9 
07 13 00074 BEQL © 7$ 
54 D4 90076 CLRL = STATUS 
08 BC D4 0007 CLRL § @COMMENTLINE 
07 11 00078 BRB 8$ 
0 06 0007D 7$ ee 
55 50 01 0007F CMPL = J,_ RS 
5 18 0082 BLEQU 5§ 
20 34 E9 00084 8$ BLBC STATUS, 10$ 
000000006 BF DD 00087 9$ PUSHL #LINS_PREMEOF 
04 AE 9F 0008D PUSHAB T MPDESC 
69 9 FB 00 CALLS , READOPTION 
58 DO 0009 OVL R ; RMSSTATUS 
08 AC DD 009% PUSHL COMMENTLINE 
04 AE F 000 PUSHAB TEMPDESC 
ade 08 be tS SORT BLS; SCOMMENTLINE, 98 
21 f BOk3 BRB wm 
7E 6 9A O00A7 108 MOVZBL CCHAR, - 
O1AE C9 1 FB OOOAA CALLS. #1, TORECHARACTER 
D6 OOOAF INCL oI 
55 1 00081 11$: CMPL : RS 
Q A 000 BGTRU 128 
FF7B 31 086 BRw 3$ 
08 08 ec €9 128 BLBC §@COMMENTLINE, 13$ 
5 A D1 CMPL §_ TPARSE_BLOCK48, STRINGSTART 
; : C BNEQ 13$ 
FF ¢ BRW 1$ 
08 BC D4 000C5 13$:  CLRL @COMMENTL INE 
50 1 pO 000C8 148:  MOVL #1, R 


Pee Se Se Re Se SE Se Se Se Ge Se Se Se Se Se Ge Se SH Se Se Se Se Se Se Se Be Be Se Se Oe Se Se Se Se Se Be Be Se Se Se Se Be Be Be Se Se Se Se Se Se Se Se Se Se See 


1 
LNK_PROCOPTIONS Linker options parser 1 ep-1984 222: AX-11 Bliss-32 v4.0- Page 
162000 Ae complete options Line, handling continuati ~360- 138% 99:49:38 LINKER.SRC REILNKOPTION. 880. 31 . (58 
04 000CB RET 
; Routine Size: 204 bytes, Routine Base: S$CODE$ + O1FC 


as 5 


LNK_PROCOPTIONS Linker options parser se 1984 00:22:5 AX-11 Bliss-32 V4.0 Page 71 
v04=000 TPARSE action rout ines ig: Sep-1984 99:99:38 LINKER.SRC LNKOPTION. 382: 31 . (6) | 
: 1166 1275 1 Xsbttl ‘TPARSE action routines'; ; 
3; 116 1 6 1 routine set_bas ° 
: 1168 127 egin ° 
; 1169 1 4 see ° 
; 1170 127 ‘ ° 
: 7 : 5 This routine is called by TPARSE to process the BASE= option ° 
: 117 1 | Inputs: ; 
Ste 1588 5: 1" 
3 1175 1284 ! Points to tparse_block 
; 1128 ! Fi APCtpasl. number] base as specified by user 
3; 1178 128 ! Outputs: 
3 1179 1288 ! 
; 1180 1289 ' Base stored in clu$i_base of the default cluster 
: 1181 1290 ! 
3 Bt 1291 leon 
3; 118 129 builtin 
3: 1184 129 ap; 
; 1185 1294 map 
; 1186 1295 ref bbl 
: 1187 1296 A _ tnkSgl_ "ct lash “Finksy sys] 
3 1188 1297 
> 1189 1298 “> gin 
3; 1190 1299 signal (Lin$_optignsys); 
3 1191 1300 return true 
3 1138 1301 end; 
3 119 1306 
3 1194 130 ink$9l de pe Celust base) = (.ap Ctpa$l_ pambor? 'Get value and round up 
: 1195 1304 2 t 51 fase boundary 
: 1196 1305 Lnk$gl set we "trae based] = true; ip tog cluster is based 
: 1197 1306 ink$gl efclu clu$v_usrBased) = true; ! by user (not currently need for object clusters) 
3: 1198 1307 ink$gl_ctlmsk Clnk$v _ubased] = true; 'Flag image based by user 
3 1199 1308 return” true 
; 1200 1309 1 end; 'Of set_base 
0000 00000 SET_BASE: 
WO 5ave nothin ng 3 1376 
OF 00000000G 00 03 €1 00002 BBC NKSGL_CTLMSK, 1$ : 1296 
000000006 af DD O00, PUSHL ping OPT IGNSYS > 1299 
000000006 00 1 4 B49 CALLS IGNAL : , 
50 1C AC QOOOO1FF if C1 8 19 1$: ADDL #311. 3 (AP), RO 3 1 $3 
000000006 00 50 000001F F F 0022 BICL aa LNKSGL DEFCLU+76 : 1304 
000000006 1 : BISB (NK RSL CLO+88 :1 05 
000000006 8 BISB re: LNKSGL_ mats : 130 
1 =O C 2$ MOVL : 1308 
04 F RET : 1309 


; Routine Size: 64 bytes, Routine Base: S$CODE$ + 02C8 


LNK_PROCOPTIONS 
v04=000 


es “a — — 4) — eg ss —* — 4 2» _ as — 4) —) 4 


Pororornonoroporepornornonyporonony 


RMMMNNNIN 3 3 2 SS SS BOO OOO 


; Routine Size: 


ap : ref bblock; 
at (Lnk$gw_chans = .ap Ctpa$l_number]) gtru Lnk$k_maxchans or .ap Ctpa$l_number] eql 0 
en 


optionvaluerr (channels_name, .ap, 1, lnk$k_maxchans); 
return true 
end; 'Of set_channels 


1 

Linker options parser Igese -1984 00:22: AX-11 Bliss-32 V4.0-74 Pa 
TPARSE action routines =3e0 138 99°99 538 LINKER.SRCJLNKOPTION.B52;1 ee 
1 19 1 routine set_channels = 
131 begin 
ng § i 
: 13 ; This routine is called by TPARSE to process the CHANNELS= option 

i . 
: 6 Inputs: 
1 \8 ' AP Points to tparse_block 
: 3 APCtpa$l_number] Number of channels as specified in options file 
$ i Outputs: 
: ; Lnk$gw_chans set up 
1325 3 inn. 
1 § builtin 
1 § ap; 
ago 
HY 
He 
133 
1334 


— 


0000 00000 SET_CHANNELS: 
- WORD 


Save nothing 3 

50 1¢ AC 00 00002 MOVL 28(AP), RO : 

00000000° EF 50 BO 00006 MOV Re. r+ lane : 
QOOOOFFF 8F 50 01 0000D CMPL RO, #409 F 
05 1A 00014 BGTRU 1$ : 

1¢ AC 05 00016 TSTL 28 (AP) 3 

16 12 4 bE BNEQ 2s : 

7E OFFF 8F 3C 0001B 1$: MOVZWL #4095, -(SP) : 

9? DD 38 0 PUSHL #1 ; 

C DD 00022 PUSHL AP ; 

00000000" EF 9F 4 PUSHAB CHANNELS_NAME : 

00000000v fF 4 Fe 092A CALLS #4, OPTIONVALUERR : 
0 1 y 4 1 28: povl #1, RO : 


53 bytes, Routine Base: $CODE$S + 0308 


72 
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LNK_PROCOPT IONS 
1042000 


Ww 


er options parser 


action routines 
routine createcluster = 
begin 


28:44:28 


i This routine is called by ease to create the cluster cescriptor 


! after the option has been parse 


Points to tparse_block 
String descriptor for cluster name 


AX-11 Bliss-32 V4.0- 
LINKER. SRCJLNKOPTION 


Ware ah al al at ae ee a oe a or et oP 
MEUM 0 OONOAUE WN “OO OONOUS WOOO 


TPOPIPOPOIPOIPIPYNININO NON NoNofoforporofnonofnopnonefofporfornsnyd 


Mwy 


New cluster descriptor allocated, cluster name set into descriptor. 


ink$gl_curclu Pointer to new cluster descriptor 
APCtpa$l_number] Zeroed 
builtin 


ap; 
map 
ap : ref bblock; 
namelengthcheck (ap [tpa$l_tokencnt], Lnk$gt_clustring, Lnk$k_max_filename_length); !Check lergth of cl 
ink$allocluster (Lnk$gl_curclu); Tallocate cluster descriptor 
cluoptflag = true; 'Flag processing a cluster option 


1 
! Move in the cluster name. Don't call LNKSINSERT_CLU here because the file qretrrvas 
& 


may contain the /SHARE qualifier. The cluster will be inserted in processfi 


i ik ek ee eh ee ee a ed ed dd 
FARIS SeNS 


See ee Se ee Se Oe we 


ch$move ((ink$gl_curclu Cclu$b_naming] = .ap Ctpa$l_tokencnt]), .ap Ctpa$l_tokenptr], 
ink$gl_curclu Cclu$t_namel); 

inka l cure tu clu$v_protect] = -protect flag; 'Set protect flag as requested 

ap Ctpa$l_number) = 0; 'Preset base to 0 

return true 

end; 'Of createcluster 


OOFC 00000 CREATECLUSTER: 
-WORD 


Save R2,R3,R4,R5,R6,R7 ; 1335 

57 900000006 00 9€ 00002 MOVAB LNKSGL_CuRCLU. R? ; 
00000006 ar D 00009 PUSHL #LNKSKMAX_F ILENAME_LENGTH + 1359 

sett | 0 Ff OF PUSHAB LNKSGT_CLUSTRING 3 

10 AC OF 15 PUSHAB 16(AP) : 

00000000v_ EF FB 0001 CALLS #3, NAMELENGTHCHECK : 
DD OO01F PUSHL R : 1360 

900000006 00 1 Ff 1 CALLS #1, LNKSALLOCLUSTER : 
0000000‘ F 1 =O 8 MOVL #1, CLUOPTFLAG 3 136) 

é 67 D0 O002F MOVL LNKSGL_CURCLU, R6 :1 

0 10 AC MOVL (AP) > RO : 
f ar 5 A moves 4 : 9gino) 93(R6) : 1367 
8S 00000000" EF F 0 INSV PROTECTFLAG. 3S #1, 88(R6) : 1308 


PA RPO O ELEN 9 Se SUONR ARM Ee re CREAR TK og SEL eet SuSE PEG BH Tee RR RR aS, 


vSRIGTION Kfonar sotto pert, NCRESlBHL OOESSG UPDANPLE HOM BizHheen «He 
oY OM BRR ge at 1 
5 RET ; 1371 


; Routine Size: 81 bytes, Rout?ne Base: S$CODE$ + 0330 


J 
i 
' 


- —————.---—- 


ti Sep-1 AX-11 Bliss-32 v4.0-7 Pp 75 
pt ions parser. if-$ep-1964 00:22:56 YAKaI1 BLissHs2 yi 0-743, aoe 7 


routine setclusterbase = 
begin 


LNK_PROCOPTIONS L 
1042000 


eo 


i This routine is called by TPARSE when the base field of the cluster option is parsed 


Inputs: 

AP eee to tparse_block 

APCtpa$l_number] ase as specified in option 

APCtpa$l“_tokencnt) Size of token just parsed (i.e. non-zero if base specified) 
Outputs: 


Cluster base and based flag set (iff base specified) for current cluster 


MITINIFOPOROPOROPOPoTonofonorny 
0909 09 098 “SN NIN NINN SIO OO 
WR OOOO UE UI Ooo ie 
De ee DD ee ee ed ee ed ed ad 
‘C9 00 CO. CD Co: SAN NNN 
MEW OOONOULS WT 
= PIPIMININIPIPILAPINIPPPINIPUPODIMPINOPOPINUPINONINUNY — 


Se ee Fe ee Se Oe Se Se Se Se Se Se Se Ge oe Se Se Se ee Se He Se Se Se ee SESH Se See 
kt et a ek et a tc“ Las 2 2 = = as 2 YY 


89 builtin 

84 90 ap; 

85 91 map 

86 8 ap : ref bblock; 

87 9 Link$gl_curclu Cclusl usrbase) = (.ap Ctpa$l_ pater + 511) ‘!Set cluster base 

88 94 and not 511; unded_up to of 29" boundary 

$89 395 Lnk$gl_ curclu Celu$v _usrbased] = (.ap Ctpast. tokencnt] neq 0 

90 396 umber present, then cluster is based 
291 397 inte ft ggtinek $24 ubased] = .Lnk$gl_ eee Link$v _ubased] ! set if based by user 
$3¢ 398 Hoe curet ¥ ya “usrbased]; 

S 399 a number) = ‘Zero in case pfc defaulted 
soe 400 foture true 

95 401 end; 'Of setclusterbase 


0004 00000 SETCLUSTERBASE: 
ORD 


Ww Save R2 : 1372 
50 000000006 00 pO 00002 MOVL  _LNK$GL_CURCLU, RO : 1393 

51 1¢ AC QOOOOIFF 8F C1 90009 ADDL3 #511, 28(AP), R1 : 
3c A 51 O00001FF ef ‘8 90012 BIC #11, Ri, 60(RO) 1394 

10 A D3 9001p TSTL  16(AP) F 

a ca : 

59 AO 01 02 1 PB 80 4 1$: INSV R1, #2, #1, 89(R : 
31 000000006 09 i i f i EXTZV i ai, LNKSGL CTEMSKeS, R1 ; 1398 

1 8 000 BISB2  R2. RI : 

000000006 00 01 03 5 FO 0 INSV R1. #3, #1, LNKSGL_CTLMSK+3 : 
so OAT BA ONOKE GURL aay : 1399 
be $028 RET , > 1401 


; Routine Size: 76 bytes, Routine Base: S$CODE$ + 038E 


4 4 
PROCOPTIONS Linker options parser 16-Sep-1984 


LNK _ 222: AX-11 Bliss-32 V4.0-74 Page 76 

v04=000 TPARSE action routines -Sep-1984 99399 538 LINKER.SRC LNEOPTION- 69251 . (10) 

3; 3 14 ¢ routine setclusterpfc = é 
i ich § ,___besin | 
31 1405 ¢ | : 
: ' Jone : This routine is called by TPARSE to store the pfc in the cluster descriptor ; 
; i 1208 i Inputs: : 
: 1 1410 2: AP Pointer to tparse_block : 
; ! 161) APCtpa$l_number] Cluster page faul€ cluster factor : 
; 0 1418 i Outputs: : 
: 1 10 1415 ; pfc field set in current cluster 

:1 ig 1419 — 

al eae to Ss 

° ap. 

3; 1315 1420 map . 

3; 3 1g 1421 ap : ref bblock; 

: 1 i 1? ¢ sf SinkSgh curcts Cclu$b_pfc] = .ap Ctpa$l_number]) gtru Lnk$k_maxpfc 

: 1319 1424 optionvaluerr (clusterpfc_name, .ap, 0, Lnk$k_maxpfc); 

: 1320 1425 return true 

: 1321 1426 1 end; 'Of set clusterpfc 


0000 00000 SETCLUSTERPFC: 
WORD 


7 Save wet : 1402 
51 000000006 00 »bd0 00002 MOVL NK$GL_CURCLU, R1 : 1422 
50 1¢ AC 00 00009 MOVL 8(AP), RO F 
SA Al 50 90 0000D MOVB RO, 90(R1) 3 
OQOOOOOFF 8&F 50° D1 00011 CMPL RO, #255 3 
15 1B 00018 BLEQU. 1 3 
7E FF or 9A OOOTA MOVZBL #255, -(SP) : 1424 
E 04 0001 CLRL = = (SPJ : 
5C DD 000 PUSHL AP F 
00000000" EF 9F 000 PUSHAB CLUSTERPFC_NAME 3 
00000000V EF 4 Fe 8 CALLS #4, OPTIONVALUERR $ 
0 : 8 O2F 1$ MOVL #1, RO 3 1633 
04 00032 RET : 1426 


; Routine Size: 51 bytes, Routine Base: S$CODES + O3DA 


eH 


LNK_PROCOPTIONS Linker options parser Sep-1984 00:22:5 AX-11 Bliss-32 V4.0-74 Page 77 LN} 
y04=000 TPARSE action rout ines 1G-Sep-1984 99:99:38 LINKER. SRC JLNKOPTION.852;1 . (11) vos 
: 1323 1427 1 routine clusterdone = . 
: 1358 1255 ” 
: 1 $ 14 9 ; This routine finishes cluster option processing : 
:1 3 14 § ioe we - Fie ee curclu Celusy. shrimg] 'If not a shareable image cluster ; 
: ! , 16 ? -ink$gl_curclu Cclu$¥_usrbased) ! and it was based by user : 
: 1331 1435 ; 
3: 1 4 14 Peesol_ curclu Cclu$l_base] = - ink$gl_ cure iy Celu$l yerbeness 'Set cluster base ; 
3 3 14 ink$gl-curclu Cclu$l-usrbase] = 0; 'Clear usrbase ‘ 
; : ¢ 12 4 ink$gl_ curclu Cclu$v_based) = true; iFlag eluater as based ° 
6 en e 
: 1 1440 return true ; 
3; 1 1441 end; ‘ 
0000 00000 CLUSTERDONE : 
WORD Save nothin : 1o¢2 
50 000000006 00 00 00002 MOVL LNKS6L gumc U, RO : 1432 
11 58 AD 02 EO 00009 BBS #2, 88TRO), 1$ ; 

0c 59 =A0 02 €1 boos BBC , 89¢ ROD” 1$ 3 1433 

4C Ad ¢ AO DO 0001 MOVL (RO), 76(RO) : 1436 

C AO D4 00018 CLRL (RO) : 1437 

58 a0 01 88 0001B BISB2 #1, 88 (RO) 3; 1438 

50 01 DO OOO1F 1$ MOVL ~ RO : 1440 

04 00022 RET 3 1441 


; Routine Size: 35 bytes, Routine Base: $CODE$S + 0400 


TPAR 


: 1339 144 

3; 1340 144 

3; 1341 1446 
3; 134 1445 
; 134 1728 
> 1344 144 

3: 1345 1448 
3 3 g 1449 
: 1 1450 
; 1348 1451 
3; 1349 14 § 
3 1 20 1 

: 1351 1454 
. 4 25 1455 
3; 135 1456 
3 13546 1457 
; 1355 1458 
: 1356 1459 
3; 1357 1460 
; 1358 1461 
3; 1359 re «| 
; 1360 146 

> 1361 1464 
1306 1465 
3: 1 1466 
: 7 1467 
3; 1365 1468 


SE 
1 
! 
3 
2 
é 
é 
1 


; Routine Size: 63 bytes, Routine Base: S$CODE$S + 0430 


a + 


LWE PROCOPT IONS Linker options parser 1B-se0-1984 00:26:36 AX-11 Bliss-32 v4.0- 


74 
action routines -Sep-1 LINKER. SRCJLNKOPTION.832;1 
routine set collect = 

begin 


This routine is called by TPARSE when the cluster name field of the COLLECT option is parsed 
Inputs: 


! 
i 
i 
i 
: AP Pointer to cpereepteck 
APC tpa$l_tokencnt] string descriptor for cluster name 
! Outputs: 
; currcollectdesc Pointer to allocated collect descriptor 
i = 

builtin 

ap; 
map 


ap : ref bblock 
search_insert_list (lnk$gl-cclulst, ap Cepast tokencn 


ccd$c_size, tt tpetdmens ie 
curcollectdesc Ccecd$b_protect] = .protectflag; !Propogate the cluster protected flag 
return true 
end; !Of set_colect 


0004 00000 SET_COLLECT: 
. WORD 


Save R2 
52 00000000° cf 9E 00002 MOVAB CURCOLLECTDESC, R2 
000000006 8F DD 00009 PUSHL #LNKSK_MAX_FILENAME_LENGTH 
000000006 00 9F SO0F PUSHAB ENKSGT_CLUSTRING 
10 AC 9F 13 SH (AP) 
00000000v EF FB 0001 CALLS #3, NAMELENGTHCHECK 
DD O001F PUSHL 
D 00021 PUSHL #49 
10 AC OF 99 3 PUSHAB 16(AP) 
00000000" EF 9F 6 PUSHAB LNKS$GL_CCLULST 
00000000v EF oe g CALLS #4, SEARCH INSERT_LIST 
0 - MOVL  CURCOLLECTBESC RO 
30 A0 28 OA MOVB PROTECTFLAG, 48(RO) 
5 01 Bo MOV #1, R 


| 


Page 78 


namelengthcheck (ap [t a$l_tokencnt], Ink$gt ge te Lnk$k_max_filename_length); !Check cluster name 
tInsert / Lookup the cluster in the cluster collect list 


(12) | 


LNK_PROCOPTIONS Linker options parser 
v04=000 E : : 


TPARSE action routines 
; 1367 1469 1 routine collect_psect = 
P18 TERR g ToMbegannt eet? 
> 1370 1478 i 
3; 1371 147 
3 3 Ie 1474 ! 
3 ; te 132? Inputs: 
: 1375 1477 2 | AP 
: : u6 ion APCtpa$l_tokencnt) 
3 i 8 1480 Outputs: 
: 1380 148 i 
: 138) 148 ! 
3 1 o¢ 1484 leone 
3 1 1089 builtin 
: ap; 
3; 1385 12B9 map : 
: 1386 1488 ap : ref bblock; 
: i 1489 local 
; 1388 1490 scratchptr; 
; 1389 1491 namelengthcheck (ap Ctpa$l 
: if a4 1636 search_insert_list (curcolT 
: 139@ 1494 cpd$c_size, scratchptr) 
: 139 1495 return true 
3 1394 1496 1 end; 
5E 04 
000000006 00 
10 ac 
00000000vV_ EF 9¢ 
E 
24 
10 Ac 
7E 00000000" EF C 
00000000v 4 ? 


; Routine Size: 47 bytes, Routine Base: 


Pointer to tparse_block 


ifesto-1964 90:28:56 


AX=11 Bliss-32 V4.0-74 


This routine is called by TPARSE for each psect in the COLLECT option 


String descriptor for psect name 


ing at Lnk$gt_ segtring}: 
cc - ap Ctpa$l_tokencnt) 
'Lookup/insert psect into list for cluster 


ectdesc d$l_psc st 


Psect name block hung off of currcollectdesc in name order. 


'Check psect name Length 


!Of collect_psect 


0000 00000 COLLECT_PSECT: 
. WORD 


SCODES + 046F 


spose peeaeng 
NKSGT _PSCSTRING 
#2, NAMELENGTHCHECK 


16(AP) 
#44, CURCOLLECTDESC, =<SP) 
a4, SEARCH INSERT List 


LINKER.SRCJLNKOPTION.B52;1 


Page 79 


(13) 


' 
; 


dD 2 | 

LNK_PROCOPTIONS Linker options parser 16-Sep-1984 00:22: AX-11 Bliss-32 V4.0-74 Page 80 

v04=000 TPARSE ection rout ines $7 900- 138% 99:99:38 LINKER SRE LNKOPTION.B32;1 ° (14) 
31 1497 1 routine set_min_dzro = ; 
3 3 3 1498 begin ~ ~ ; 
; 1398 1499 ' ; 
3 ! +4 : Be This routine is called by TRARSE to set the DZRO_MIN= option ‘ 
; 1401 1 8 builtin ; 
3 7 bg 1 8 ap; ‘ 
3; 140 1504 map ; 
3 : Be ! R? ap : ref bblock; | ‘ 
>; 1406 1208 if (lnk$gwidzromin = .ap Ctpa$l_number]) gtru Lnk$k_mindzro | ‘ 
: 1407 1208 then ; 
3; 1408 1509 optionvaluerr (dzromin_name, .ap, 0, ‘ 
3; 1409 1510 Lnk$k_mindzro); ; 
; 1410 1511 if .lnk$gl_ctTmsk ink$v_sys] then signal (Lin$_optignsys); | ‘ 
3: 14611 1316 return true ; 
3: 1412 1513 1 end; !Of set_min_dzro | ° 
| @ 
; 
0000 00000 SET_MIN_DZRO: ; 
-WORD Save nothing 3; 1497 ; 
50 1¢ AC 00 00002 MOVL 28(AP), R 3; 1507 : 
000000006 00 50 8 44464 MOVW RO, LNKS$GW_DZROMIN ; ‘ 
OOOOFFFF  8F 50 01 00000 CMPL RO, #65535 3 ‘ 
16 1B 00014 BLEQU 1$ 5 : 
7E FFFF of 3C 00016 MOVZWL #65535, -(SP) ; 1509 : 
E 04 00018 CLRL -(SP) : : 
5C 0D 0001D PUSHL AP : : 
00000000" EF 9F QOOIF PUSHAB DZROMIN_NAME : : 
00000000V EF 4 FB 00025 CALLS #4, OPTIONVALUERR 3 3 
0D 000000006 00 ‘03 €1 0002C 18 BBC #3, LNKSGL_CTLMSK, 2$ ; 1511 : 
000000006 §F DD 900 PUSHL #LINS_OPTIGNSY ; : 
000000006 00 01 FB OO3A CALLS #1, LIBSSIGNAL ; : 

50 01 D0 00041 2%: MOVL #1, ; 1318 

04 00044 RET 3 151 


; Routine Size: 69 bytes, Routine Base: S$CODES + O049E 


LNK COPTIONS Linker options parser ip-Se Sep-1984 AX-11 Bliss-32 V Page 81. 
vOez 600 TPAR ARSE action rout nes 0-1 98e $8: fi 3 LINKER. SRC JLNKOP ON B82; ;1 ’ 8) 
1414 1514 1 routine set_gsmatch_ctl = 

1ei2 1 1? begin 

147 ; " : This routine is called by TPARSE when the match control field of the GSMATCH option is processed 

1419 1219 *  puiltin 

1420 1 0 —— 

1421 1521 

14 ¢ 15 ¢ + ref bbloc 

14 15 night apytener’ = a8 Ctpa$l_param); 'Match control is passed as a parameter 

1424 1526 pa$l_number) 'Preset GSMATCH 

et 13s? return true 

1426 1526 1 end; !Of set_gsmatch ctl 


0000 00000 SET_GSMATCH_CTL: 
WORD 


. Save not ing ; 1514 

00000000G 00 20 AC 90 00002 MOVB 32(AP), oe GB_MATCHCTL : 1523 
1C AC D& QOOOA CLRL 28 (AP) : 1524 

50 01 00 00000 MOVL #1, RO : 1525 

04 00010 RET : 1526 


Routine Size: 17 bytes, Routine Base: S$CODE$S + 04E3 


vO 


ee 
} 


Lm RE PROCOPTIONS | er options parser 1 ~$e0-1984 00:49:36 AX=-11 Bliss-32 V4.0 Page 92. 


RSE action routines -Sep- LINKER. SRC LNKOPTION. 5 2;1 (16 


1 routine set_gsmatch_maj = 
begin 


BRLLSE 


WN" ODOONOUSWI—OOMm 


This routine is called by TPARSE to process the major id of the GSMATCH option 


builtin 
ap; 


r ap : ref bblock; 
7 tial matchid Comt$b_majorid] = .ap Ctpa$l_number]) gtru lnk$k_maxmajid 


| 

ma | 
| 

"opt jonvaluere (gsmatch_ name, .ap, 0, lnk$k_maxmajid); 
| 


Sees Ge Oe Se Ge Se Se ee FH Se Se ee 


ap Ctpa$l_number] = 0; 
return true 
end; !O0f set gsmatch_maj 


ee ee ee ee ee ee ee ee ee 
MO CONOULS Wr O0O~7 


— 


0000 00000 SET_GSMATCH_MAJ: 
. WORD 


Save nothing : 13¢7 
50 1¢ aC 00 00002 MOVL 28(AP), RO 3; 1557 
00000000G 00 50 90 00006 MOVB RO, LNKS$GL _MATCHID+3 5 
0O00000F F 8F 50 D1 Bg000 CMPL RO, #255 ; 
15 1B 00014 BLEQU§ 1$ 3 
7E FF 8F 9A 00016 MOVZBL #255, -(SP) ; 1539 
7E D4 OOOIA CLRL = (SPJ ; 
5C DD 0001C PUSHL P 3 
00009000" EF 9F OQODIE PUSHAB GSMA AME 3 
00000000v_ EF 04 FB 00024 CALLS 4&4, OPTTONVALUERR 3 
1C AC 04 00028 1$ CLRL 28 (AP : 1540 
50 01 00 0002E MOVL #i, RO : 1541 
04 00031 RET 3: 1842 


; Routine Size: 50 bytes, Routine Base: SCODE$ + O04F4 


LNK_PROCOPTIONS 
v04=000 


Seee Se ee Se Fe Se Se Seas te Setee 

—> a — bd —) — 4 4 > 4 _ ss — 4 2 
bt et ee et et et et ete et 
PAPI AYIVIVIVIVT E £* 
DNAULSWN—"ODOONOW 


000000006 00 


; Routine Size: 


2 
Linker options parser iB Sep-1984 AX-11 Bliss-32 V4.0 
TPARSE action rout nes Sep-19 4 98: #4: 38 LINKER. SRC LNKOPTION. "3 2;1 
1543 1 routine set_gsmatch_min = 
: te begin 
1 46 ; This routine is called by TPARSE to process the minor id of the GSMATCH option 
1548 2 ~— builtin 
1303 ap; 
1550 map 
1551 ap : ref bblock: 
1326 an (Lnk$gl_matchid tomt$b_ minorid] = .ap Ctpa$l_number]) gtru Lnk$k_maxminid 
1384 “opt fonvaluerr (gsmatch_name, .ap, 0, LnkSk_maxminid); 
1555 return true; 
1556 1 end; !Of set gsmatch_min 


0000 00000 SET_GSMATCH_MIN: 
WORD 28heN. nothing 


50 1¢ AC pO 00002 MOVL 
18 00 50 FO 00006 INSV £34, LNKS$GL_MATCHID 
OOFFFFFF  8F 50 01 0000F CMPL RO. 0, 
17 1B 00016 BLEQU 
OOFFFFFF i DD 00018 PUSHL Hie7z7a1s 
E D4 OO0iE CLRL = 
5C DD 000 PUSHL ~ 
00000000' FF 9F 000 2 PUSHAB GSMA AME 
00000000V EF 4 FB 000 CALLS 4&4, OP TTONVALUERR 
50 01 D0 O00¢F 1$: MOVL #1. RO 
04 00032 RET 


51 bytes, Routine Base: $CODE$ + 0526 


Page 155 


LAE <BR peor TLONS inker 


ons, parser. iersort ate 0:29:56 YAEGHL BL agc SZ We Oa74e 


aq eet _image_type = 


| Sey routine sets the image type. 


wr OOo 


a a ss 
a ts 
SOOM 


Lnk$gl_ etlach Cink$v_cli] = true; 
return t ru 
end; 


0000 00000 ote ee 


000000006 00 20 88 00002 BISB2 ie: TRRSGL CTLMSK#3 
50 51 D0 00009 MOVE. #1, RO 
04 0000¢ RET 


Routine Base: $CODE$S + 0559 


Be te te Se 


Le COPTIONS Linker options parser ig-se Sep-1984 AX-11 Bliss-32 V4.0-74 Page 85. 
b6=000 : PARSE action rout nes 3021 3be $8: 93 33 LINKER.SRCJLNKOPTION.B52;1 . 193 
| 
: 1469 1565 1 routine set_image_ident = 
£127) 1867 § , _‘Degin | 
3 145 1 o8 This routine is called by TPARSE to set the image file identification 
3 1474 1 5 builtin | 
3 1475 1571 ap; 
: 1476 1 Ie map 
3 1477 157 ap : ref bblock; 
: 1478 1574 local | 
3 1479 1575 
; 1480 1 ds Belimited. ident, 
: et : oe ident_desc : vector (2); 
: 1288 1579 ifr (ge ctlmsk FinkSy. an My = true; ! Flag that image id is manually set 
3 1484 1380 (deTimited_ident = .ap Ctpa$l_param]) 
3 1o8? 1581 en es, er better find agtching end delimiter 
3 res 1356 ay Pe! = ch$find_ch (.ap Ctpa$l_ seriencl. -ap Ctpa$l_stringptrj), .ap Ctpa$l_charJ)) eql 0 
: 1488 1584 wn return false ! If no end delimiter match, balk 
: 1489 1585 om 
3; 1490 1586 ! If found one, adjust pointers accordingly 
3 1491 1587 Peeat desc tt} “per - 2p Ctpasl sstringptrd; 
: 1ea6 1588 ident_ atest Ctpast este ingot rJ 
3 149 1589 ep tpa$l_stri ngent = .ap [tpa$l “stringcnt) - (,ident_desc [CO] + 1); 
3 1494 1590 tpa$l“stringptr) = .ptr + 1; 
3 1495 1591 ond 
3: 1496 1338 ! If not delimited, 
3 1497 159 ! then token points to 
3; 1498 1594 bogie desc FO} = -ap Ctpa$l_tokencnt]; ! the ident string 
3 1499 1595 ident. desc -ap Ctpa$l_ tokenptr]: 
: 1500 1596 end; 
3; 1501 1597 
; 1308 1598 namelengthcheck (ident_desc (0) image_ ident name ' make sure legal Length 
; 150 1599 Lnk$gt_ osi¢ (0) = .ident_desc f e vimge id field 
3 1504 1600 ch$move (.ident “desc C0J,”. ident _desc C1), NALS imgid CT) : 
3; 1505 1601 2 Foture | true 
3; 1506 1602 1 end; 
003C 00000 SET_IMAGE IDENT: 
; 5 000 .@ORD Save fz. »R3,R4,R5 : 1565 
000000006 30 40 SF 5 $0008 SuBL¢ #64 LNKSGL CTLMSK+3 > 1579 
3 20 = AC 4 Bf, MOVL CL ri reo D_JDENT ; 1580 
A 50 11 BLBC Etinifep : F 
oc BC 08 AC 18 AC A 00014 LOCC (AP) BtAPD "s (AP) : 1582 
2 1B BNEQ $ 3 
1 D4 1D CLRL Ri : 
1 OD 1F 1$ TSTL PTR 3 
45 1 BEQL 4 3 
* 4 AE Of AE Ob MOUE. {SAPD IDENT DEScERe  128R 
50 8 AC 6— C D SUBL3 IDENT bESC. 8TAP), RO ; 1888 
j 


LNK_PROCOPTIONS Linker options parser Ipese Sep-1984 AX-11 Bliss-32 V4.0-7 Page 86 
voc=000 TPARSE action rout nes ats 7 38: 93 33 LINKER.SRCJLNKOPTION. ; 2;1 a} 


08 AC FF AO 9E 000 3 MOVAB =1(RO), gap) ; 
C AC 01. Al 5 0 MOVAB 1(R1), 12(AP) + 1590 
04 1 : C BRB $ + 1582 
6E 10 AC 7D 3s mova 6(AP), IDENT_DESC + 1594 
OF pp 0042 3$ PUSHL #15 + 1598 

00000000" EF 9F 0004 PUSHAB IMAGE_IDENT_NAME : 

AE 9F OO04A PUSHAB IDENT DESC ; 

00000000 EF 0 EB 0004p CALLS #3, NAMELENGTHCHECK ; 
000000006 60 6E 90 00054 MOVE. IDENT_DESC, LNKSGT IMGID + 1599 
000000006 00 04 6E 28 00058 MOVC3 IDENT-DESC, @IDENT-DESC+4, LNKSGT_IMGID+1 : 1600 
01 0 0064 MOVL #1, RO 3 1601 

4 00067 RET ; 
50 D4 00068 4$: CLRL —-RO > 1602 

04 0006A RET : 


; Routine Size: 107 bytes, Routine Base: SCODE$ + 0566 


LNK_PROCOPTIONS Linker options parser 
v04=000 SE action routines 


oO 


1 routine set_image_name 
' begin 


AX-11 Bliss-32 V4.0-7 


if ss 


; This routine is called by TPARSE to set the image name 


suai thcheck cn Ctpasl. tokencnt], 


ed et td et od dd dd dd od 3 
PUPP GIVI 
Moron a SS SS SS OO 
NM—OOONOUS WOOO 
— ts et 
NOL EWN HOOD ONOUIEW 


— 


007¢ 


00000000V_ EF 
66 


Ovi POPYrMaae 
OOO WTS 


gest _tokencntJ; 


LINKER. SRCJLNKOPTION. : 231 


image_ none pene. Lnk$k_max_ fitenene length); 


! make sure legal le 
in image fame” 


-ap Ctpa$l_ Lebenotrd. 


9E 00002 
DD 00009 
oF Bete 
9F 0001 

3 Hi 
gh 0023 
28 00026 
DO O002C 
04 0002F 


SCODES + 0501 


; Routine Size: 


Lnk$gt_imgnam 


00000 SET_IMAGE hors 
WORD 


KTMA Pacenine LENGTH 


Stab tNKSGT. IMG 
NK KS T 
, LNK$GT_IMGNAM+1 


LNK_PROCOPTIONS 
v04= 


action routines 


2 
ti =1984 AX-11 Bliss- 4.0 
ARSE action rout ine ifs 30-1 98: 73 35 UINKER SRE LNKOPTION. 6 B32;1 


-Sep-1984 


beg eet .ioseg = 


7 This pee is called by TPARSE to set the IOSEG= option 


— a — a — 2) 3 2 3 a 


PUPP 


DNAVE WN" OOONOUNSE 


; Routine Size: 


builtin 
ap. 
map 
ref bbloc 
‘? (Unison. ioseg = = Ctpa$l_number]) gtru Lnk$k_maxioseg 


cot tonvaluerr (ioseg_ name, .ap, 0, 
Lnk$k_maxioseg); 
return true 
end; 'Of set_ioseg 


0000 00000 SET_IOSEG: = 


WO Save nothing 
1€¢ AC 00 00002 MOVL B(AP), RO 
00000000' fr 50 B60 00006 MOVW RR. reyta t4 IOSEG 
OOOOF FFF F 50 01 0000D CMPL RO, #65535 
16 1B 00014 BLEQU§ 1$ 
7E FFFF or C 00016 MOVZWL #65535, -(SP) 
E D4 Byte CLRL (SP) 
5C DD 10 PUSHL AP 
00000000' Ff F OOO1F PUSHAB IOSEG_NAME 
00000000V fF 4 FB 00025 CALLS #4, OPTIONVALUERR 
0 01 00 0002C 1$: MOVL #1, RO 
04 0C02F RET 


Routine Base: $CODE$ + 0601 


. 
o 
2 
e 
. 
° 
. 
e 
. 
° 
. 
e 
7 
e 
+. 
¥ 
. 
e 
+ 
° 
. 
° 
. 
° 
° 
° 
. 
” 
. 
. 
. 
° 
. 
6 
. 
e 
. 
e 
o 
. 
. 
oe 
. 
e 
. 
e 
. 
” 
o 
a 
* 
. 
° 
+ 
° 
> 
. 


M 2 
LNK_PROCOPTIONS Linker options parser 16-Sep-1984 00:22: AX-11 Bliss-32 V4.0-74 Page 89 
yOaz008 TPARSE ection rout nes 87820-1387 99:44:38 PINKER SRESLWCOP TION. 68251 . (233 
; 1540 1 ; 1 routine set_pObufs = 
3 : ry } ¢ begin 
:1 rk 1 § i Clear the NOPOBUFS flag 
: 1544 16 ! 
; 1545 \ 5 builtin 
s 9 re] 1 ap; 
: 154 1640 map 
: ' re 196) ap : ref bblock; 
: 1550 1808 Lnk$gi_ctlmsk Cink$v_nopObufs] = .ap Ctpa$l_param]; 
: 1551 1960 return true 
3; 1552 1645 end; !0f pO0bufs_on 


Save nothing : 1633 

00000000G 00 01 05 20 AC FO 00002 INSV 32(AP), #5, #1, LNKSGL_CTLMSK+2 3: 1643 
50 01 00 0000C MOVL #1, RO 3 1644 

04 0000F RET 3 1645 


; Routine Size: 16 bytes, Routine Base: S$CODE$ + 0631 


<- 
ez 


09 


; Routine Size: 95 bytes, 


LNK_PROCOPTIONS Linker options parser 13 Sep-1984 AX-11 Bliss-32 V4.0 
y0c=008 TPARSE ection rout nes “520-1984 $8: 94: 3§ LINKER. SRC LNKOPTION. 5 231 
3; 1554 1646 1 routine set_isd_ma 

. f 184? ae 

3 ? 1846 This routine is called by TPARSE to set the ISD_MAX= option 

:1 2 1651 builtin 

; i rs i 4 ma _ 

: 156¢ 1654 P ap : ref bblock; 

3 1366 1628 > he (Lnk$gw_misects = .ap Ctpa$l_number]) gtru Lnk$k_maxisds or .lnk$gw_misects eql 0 
; 1366 188% ptionvaluerr (isdmax_name, Lnk$k_maxisds); 

; 156 1659 if Rist tie ctlmsk Clnk$v_Shr thon” Saat (LIN$ _optignshr); 

3; 1568 1660 if ~ Lnk$gl~ ctlmsk Clnk$v_sys] then signal (Lin$_optignsys); 

3; 1569 1661 return true 

; 1570 1662 1 end; !Of set_isd_max 


001C 00000 SET_ISD_MAX: 
. WORD 


0 e R2,R3,R 
54 000000006 00 9€ 0000 MOVAB PaKSGu wisécts, 
53 000000006 00 9E 0000 MOVAB LIBS$SI R 
rH 000000006 00 9 9010 MOVAB LNKSGL CTLMSK, R2 
5 1¢ AC DO 0001 MOVL 
64 50 8B 001B MOVW Roe LNKSGu_ MISECTS 
OOOOFFFF  8F 50 (D1 OO1E CMPL 
04 1A 000 BGTRU 
64 83 0027 TSTW LNKSGU_MISECTS 
16 12 00029 NEQ $ 
7E FFFF 8F 3C 00028 1$ MOVZWL o95535. - (SP) 
or DD 00030 USHL 
C DD 00032 PUSHL 4 
00000000" EF 9F 000 PUSHAB 1SDMAX_NAME 
00000000V_ EF 4 FB OOO3SA CALLS a3 OPT IONVALU UERR 
9 62 2 €1 00041 2$: BBC s Geile CTLMSK, 3$ 
000000006 8F DD 00045 PUSHL sink 
63 01 FB 00048 CALLS ioe 
62 3 £1 O004E 38 BBC aaa CTLMSK, 4$ 
000000006 8F DD 0005 PUSHL fin ag IGNs 
$3 1 FB 004 CALLS #1, LTBSSIGNA 
0 : a B 4$: MOVL #1. R 
04 0005€ RET 


Routine Base: $CODE$ + 0641 


Page 235 


Pete Se Se Se Se Be Se Se Ge Be Be Ge Se Be Se Be Se Se Be Se Se Se 


1646 


; 1656 


1658 


<- 
=< 5 


—s 


PS» allan 3 


Oa a dd od 
>a 


1663 
1664 
1665 


166 
166 


oa a 
PAAAASO 


6 
; 
? 
? 
7? 
7? 


14 bytes, 


Wr OOD 


SnkgE gptfons, parser. ifesen-1986 99:29:56 
1 routine set_protect = 
begin 


' 
This action routine sets the protect flag 


builtin 

ap; 
map 

ap : ref bblock; 
protectflag = .ap Ctpa$l_param); 
return true 
end; !Of set_protect 

0000 00000 SET_PROTECT: 
- WORD 3 noth ing 
00000000" gf 20 D9 00002 Rov. SetAp) PROTECTFLAG 
0 of 3 A nove 


Routine Base: S$CODE$S + 06A0 


AX-11 Bliss-32 v4.0-7 
LINKER. SRCJLNKOPTION. 3 2;1 


Sz 


LNK_PROCOPT IONS 
y04=000 


ction routines 


sess 


ptions parser if-se gep~ 138 99: ¢¢: 36 AX=11 Bliss-32 V4.0-7 


1 routine createpsect = 
begin 


i This routine is called by TPARSE when the PSECT= option is parsed. It defines 
the psect. 


ek a ed te td = 8 dd dd ts = 

PAE MANNA NNN 
oO 00-000 00000. 

SSSLESEENLSSELES 


; Routine Size: 


wre 


ooo 


builtin 
ap; 


map 
ap : ref bblock; 
psectnamebuf : vector Csym$c_maxing + 1, byted; 

peectnanebut fO) 2 (ap Ctpa$l_tokencnt], inkSgt, scstrin !Check Length of name 


psectnamebuf [0] = .ap [tpa$i_token nt peste Aecic name strin 
ch$move (.ap (tpa$l_tokencnt], .ap tpasl_ tokenptrd, psectnamebuf ([1]) 


LINKER. SRCJLNKOPTION. a 231 


LibSinsert “tree (Lnk$gl_ pscdf(st, psectnamebuf, tref (0), Lnk$compare_ pdd, ink$alloc_pdd, curpsectdesc); 


return true 
end; 'Of createpsect 


003C 00000 CREATEPSECT: 
-WORD Save R2,R3,R4,R5 


4 C2 0000 SUBL2 sf 
000000006 00 9F 0600 PUSHAB LNK§GT _PSCSTRING 
10 AC 9F 00008 PUSHAB 16(AP) 
cocooogey Fao RE SR AME RAURS_ uncrucecs 
14 BC 10 ac @8 OO01A VC3. 16 (AP) SSOCAP) PSECTNAMEBUF +1 
00000000" EF 9F 00021 PUSHAB CURPSECTDESC 
SSRs HBS Hiss, | RUSS esa r, 
Oc AE ps 00 g CLRL 1gts) e 
C AE 9F 000 S 10(SP) 
14 AE 9F 00039 PUSHAB PSEC TNAMEBUF 
00000000" EF 9F 0003C PUSHAB LNKS$GL_PSCDFLST 
000000006 90 06 FB 0042 CALLS 46, LIBSINSERT_TREE 
be 004¢ RET : 


Routine Base: SCODES + O6AE 


—————— + 


dD 3 
LNK_PROCOPTIONS Linker options parser 16-Sep-1984 00:22:5 AX=11 Bliss-32 V4.0-74 Page 93. 
v04=000 TPARSE action routines g7ge0 1 38e 99399538 LINKER. SRCILNKOPTION.B 231 " (26). 
; 1605 1694 1 routine set_pscatrib = : 
3 1606 1695 begin ~ | ; 
; 160 1998 : ; 
: 1908 +244 This routine is called by TPARSE for each attribute found in the PSECT= option ‘ 
; 1610 1992 builtin ‘ 
> 1611 1700 p; : 
; a 1701 map ‘ 
; 161 186 ap : ref bblock; : 
> 1614 170 cal ‘ 
; 1615 1704 maskflag, ; 
; 1618 1702 attribit; ‘ 
: 161 17 $ attribit = .ap Ctpa$l_param); 
: 1819 1708 $ {check if this is psect alignment and | 
4 : ec this 18 psect alignment an rocess 
: 1620 1709 3 | By P | 
3 1621 1710 if (.attribit and sign bit) neq 0 
: lose 1711 then 
3 162 Fat begin ; 
3: 1624 171 curpsectdesc (Cpdd$b_align] = .attribit<0, 8>; 'Set psect aligment for later 
3 ies? 1714 return true; 
> 1626 1715 end 
> 1627 1716 2 else | 
; 1628 1717 2 if (,attribit and word_sign_bit) neq 0 !If clearing the bit 
: 1629 1718 § then 
>; 1630 1719 begin 
; 1631 1720 ; curpsectdesc poddeu.fi ees) = .curpsectdesc Codd$w_flags] and not ( not (.attribit and %x'FFFF*)) | 
3 1632 1721 curpsectdesc Cpdd$w_flgmsk] = .curpsectdesc [pdd$w_flgmsk] or ( not (.attribit and %x'FFFF')); 
; 1633 7s¢ 3 end 
> 1634 172 ¢ else 
: 1635 1724 begin Sa 
: 1636 1725 3 curpsectdesc peddéu. flags) = .curpsectdesc Cees 1 pes) r .attribit; 
3: 1637 1726 3 curpsectdesc [pdd$w_flgmsk] = .curpsectdesc [pdd$w_flgmskJ or sattribit; 
; 1638 1727 2 end; 
; 1639 1728 2 return true 
: 1640 1729 «#1 end; 'Of set_pscatrib | 


0004 00000 sai cdoceaaae 


WO $ave R2 > 1694 
50 20 AC D 9992 MOVL 2(AP), ATTRIBIT : 1706. 
1 00000000" EF D MOVL § CURPSECTDESC, R1 $1713 | 
0 D5 00000 TSTL  ATTRIBIT > 1710 | 
1 OF GEQStsédTS F 
OE Al 9 11 MOVB ATTRIBIT, 14(R1) > 1713 
11 13 BRB 3 : 1714 
8 17 1$: TSTW ATTRIBIT > 1717 
1 19 BGEQ = 2 ; 
52 8 1B MCOMW ATTRIBIT R2 : 1720 
OA Al AA 0001 Bicw2 R2, 10(R1) ; 
3 MOVZWL ATfRipiy RO > 1721, 
oc Al 3¢ MOVZ2WL 12(R1), R2 ; 
3 CA BICL2 Re, R) ; 
oc (Al B2 C MCOMW 20, 12(R1) ; | 
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C 
Routine Base: 


SCODES + O6FB 


62 bytes, 


; Routine Size: 


LNK_PROCOPTIONS 
yOc=000 


Sees Ge Oe Ge Oe Se Seas SH Se See 
Pu a 8 i ss 
AAA SPSS 


DA 
Fw - OC OONOuUrwr 


; Routine Size: 


F 3 | 
er options parser 16-Sep-1984 00:22: AX-11 Bliss-32 V4.0-74 Pa S| 
SE ection rout ines g-900- 1388 99:44:38 LINKER. SRCJLNKOPTION.B352;1 9 353 


routine set_shl = 
begin 


i This routine is called by TPARSE for the SHL_EXTRA option 


| 
! 
builtin 
ap; | 
map | 
ap : fef bblock; 

Lnk$9 shlextra = .ap Ctpa$l_number]; 
if .Unk$gl_ctlmsk Clink$v_sys] then signal (Lin$S_optignsys); 
return true 


—ronoronororoporofporesn — 


end; 


0000 00000 SET_SHL:.WORD Save enn : 1730 

00000000" EF 1¢ AC 00 60002 MOVL 28( AP), LNKSGL_SHLEXTRA : 1739 

OD 00000000G 00 03 €1 OOOOA BBC #3, LNKSGL_CTLASK, 1$ : 1740 
00000000G 8F DD 00012 PUSHL #LIN$_OPTIGNSYS 3 
000000006 00 01 FB 00018 CALLS #1, LIBSSIGNAL 3 

50 01 DO OOOIF 1$: MOVL #1, RO : 1741 

04 00022 RET : 1742 


35 bytes, Routine Base: SCODE$S + 0739 


LNI 
vO: 


LNK_PROCOPT IONS 
V04=000 


NO 


=" 
AAO 
co 


SSEZESS 


4 se st et —r 


TRIER TRICICTE TE IL IRIEL TL Te 
ee ee ee ee ee ee ee ee ee 

SSS SSF. 

-—OOOonN 

QQVQQVNN Ns 
PAAIAIVIVIVIVI ES SELLE yp 
DNAL EWN" OOONOUNEW = 
— 


; Routine Size: 


nker options parser 
E action routines 


1 routine set_stack = 
, begin 


builtin 


ap. 
map 


: ref bbloc 
Hi thks ow stack = 


ent ionveluert (stack_nam 
if .lnk$gl_ctlmsk 
if .lnk$gl-ctlmsk 


return true 
end; 


OOOOF FFF 


00000000Vv 


Routine Base: 


‘ap Ctpa$l_number]) gtru Lnk$k_maxstack or 


This routine is called by TPARSE to process the STACK= option 


~ Lnk$k ;" xstack); 


ap, 
ink$v =shr]" then stinst (Lin$_opt gnshr); 
Lnk$v_sys 


then signal (Lin$_optignsys); 
'Of set_stack 


001C 00000 SET_STACK: 
-WORD Save R2,R3,R 


09 9E 99002 MOVAB LNK$GW eFat R4 
0 9E 00009 MOVAB LIBSSIGNAL, 
00 4 90010 MOVAB LNKSG CTLMSK, R2 
AC D0 0001 MOVL R 
50 BO 90018 MOVW RO, L LNKSGW_STACK 
50 (D1 OO1E CMPL 65535 
04 1A 000 BGTRU 
64 83 0027 TSTW LNKSGW_STACK 
16 12 00029 BNEQ & 
8F 3C 000 : 1$ MOVZWL #65535, -(SP) 
gt DD 000 PUSHL 
C DD 00 2 PUSHL 4 
EF 9F 000 PUSHAB STACK_NAME 
04 FB O003A CALLS #4, OPTIONVALU ERR 
2 £1 00041 2s: BBC # LNKSGL CTLMSK, 3$ 
F DD 00045 PUSHL #LIN$ OPTIGNSHR 
1 FB 00048 CALLS #1, SIGNAL 
3 £1 0004E 3S: BBC #3, LNKSGL_CTLMSK, 4$ 
a DD 005 PUSHL #LIN$ OPTIGNSYS 
1 FB 0005 CALLS #1, TTBSSIENAL 
01 BO 0098 4$: MOVL #1. RO 
4 E RET 


+ 075C 


3 
1$oS0-1984 00:22:56 YARGTT BLieg SZ ve Oo7K2 


<r 
ez 


-lnk$gw stack eql 0 


eee... eee 


H 3 
LNK_PROCOPTIONS Linker options parser 16-Sep-1984 00:22: AX-11 +? ss-32 V4.0 Page 97 
v04=0 TPARSE action rout nes g- eet 99:49:38 LINKER. SRC LNKOPTION. +} 2:1 ° (29) 
: 1673 1759 1 routine ,detinesyabolnane = = | 
>: 1674 1760 begin -, 
; 1675 1761 } ? 
: 1928 1786 ; woe routine is called by TPARSE when the symbol name is parsed for the SYMBOL= option - 
: 1678 1764 builtin .) 
>; 1679 1765 ap; . | 
; 1680 1706 map e | 
: 1681 176 ap : ref bblock; ; 
; 1086 1768 local ae 
3; 168 179) crfst 2 
: 16 1770 nanelen theheck (ap Cypasi, tokencnt], lnk$gt_symstring); 'Check symbol name Length s) 
5 12 5 17) search_ not symbol (ap CEpa$i_ tokencnt], cursymdesc, Insert into symbol table - 
; cursymsn Bi 
: 1689 1398 a adesc Csym$w_flags) = (.cursymdesc Csym$w_ flags] and !Clear all the flag bits . | 
; 1688 1774 Casy _uni or sym$m_supres)) ! except uni and supres ; 
$ be 4 \er? gsy$m_def or sym$m_optsym); ! and set def and optsym ; 
3 24! 1777 ue on nkSol. ctlmsk Clnk$v_cros) 'If cross referencing 
3 1698 1779 pesin 
> 1694 1780 crossref_symbol (. ereraress .cursymsnb, !Insert symbol definition 
; 1695 1781 .cursymdesc Csym$w_f ags 
: 1696 A crfsts = crfSinsrtref tine al gaytol tat. gursynend Csnb$b_naming] ! then insert a reference 
: 1697 178 Cot ined gepysoPtion- gsy$m_de sayi ng defined by option 
; 1008 A. cr and this is a defining reference 
3; 1700 1788 if not pee ‘Report error from cref if so 
: 1701 178 en 
3 1708 17e8 signal (lLin$_crferr, 0, .crfsts); 
; 1704 1790 Lnk$gl_maxsymsz = maxu (. -tnk$ol maxsymsz, 'Set maximum symbol name Length 
: 1705 1791 -cursymsnb Csnb$b_naml 
: 1706 1738 ink $9. maxmodsz = maxu (.\n soi maxmodsz, ! and maximum module name Length 
3; 1707 179 charcount ('<Linker optionS')); 
:; 1708 1794 Lnk$gw_ ncrosrfs = .lnk$gw_ncrosrfs + 1; !Count the cross reference 
: 1709 1795 § en 
; 1710 1796 return true 
3 1711 1797 (1 end; 'Of definesymbolname 


001C 00000 scam * Yuta’ 


Save R2,R3,R : 1759 
54 06 00 9 92 MOVAB = LNK$GL 2 AAXMODST, R4 ; 
33 6 00 3 MOVAB LNKSGLMAXSYMSZ, R3 ; 
2 * €F GE 19 MOVAB CURSYMSNB, R2 ; 
0000006 060 3 1 PUSHAB ign) SYMSTRING : 1770 
10 AC 9F 1 PUSHAB 16(AP)~ ; 
00000000v_ EF 9 FB CALLS ‘ , NAMELENGTHCHECK tse 
FC A oF 9 SHAB CURSYMDESC ; 
10 AC OF C PUSHAB 16(AP ; 
00000000v ff 0 FB f CALLS #3, SEARCH_ IN ERT_SYMBOL ; 
0 FC OA2 OD MOVL §§ CURSYMDESC? : 1773 


3 
LNK_PROCOPT IONS binker options parser 1g. Sep-1984 AX-11 Bliss=-32 v4.0 P 8 
042000 PARSE action routines Rts a ae te tg ECE Et age 235 


<- 
. on 


; Routine Size: 191 bytes, Routine Base: S$CODE$ + 07BB 


1 OA ad 3¢ 3A MOVZWL 10cR d. Rt 3 177% ; 

1 FFFFDFF F CA : BICL¢ #26197 : F 

OA ad 1 020 F A 4 BISWs #514 &y* "yocro» + 1775 : 
000000006 09 9 af 1sT8 LNKSGL_ CTLMSK ; 1777 : 

7E OA A if 4 MOVZWL 10(RO), =(SP) : 1781 : 

$2 bd 8 PUSHL  CURSYMSNB : 1780 : 

DD OO05A PUSHL R : F 

00000000v_ EF FB CALLS , CROSSREF _SYMBOL $ ‘ 
1 DD 0006 PUSHL : 1782 : 

2 pd 6 PUSH : : 

00000000" EF 9F PUSHAB DEF NED BY_OPTION : : 

7E 62 4 1 D ADDL3 RSVMSNB =(SP) : ; 
000000006 Q F 00071 PUSHAB tks AL SYTBLFMT : ; 

000000006 00 Fe 0077 CALLS CRFSINSRT TREF : ; 
11 0 €8 00 fe LBS fat ss , 1$ : 178 ; 

30 DD 000 PUSHL  CRFSTS- : 178 : 

E 04 00 3 CLRL. = = (SP) : F 

000000006 8F DD 000 PUSHL ' INS$_CRFERR ; ; 

000000006 90 03 FB 000 CALLS LIB$SIGNAL ; ; 
0 62 DO 00092 1$: MOVL curs SNB, RO + 1791 : 

51 6 DO 0009 MOVL LNKSGL _MAXSYHSZ R1 : ; 

51 04 ad 08 0 ED 00098 CMPZV R1 : : 
04 18 O09 LEQU F F 

51 04 AO 9A 000A MOVZBL 4(RO), R1 ; : 

63 51 DO OOOA4 2$: MOVL R1, i haSou MAXSYMSZ : 1790 é 

50 64 DO 000A7 MOVL § LNKSGL_MAXMODSZ, RO : 1792 : 

OF 38 D1 OOOAA CMPL RO, #15 : 3 

03 1€& OO0AD BGEQU $ : : 

50 oF D0 OOOAE MOVL #15, RO ; ; 

64 0 vO 0082 3$: MOVL RO. LNK$GL_MAXMODSZ ; : 

000000006 00 86 000B INCW LNKSGW_ NCROSRFS : 1794 3 

50 01 00 000BB 4$: MOVL #1, RO : 1796 ; 

04 O00BE RET : 1797 3 


er options parser 1B-se0-1984 00:49:38 AX-11 Bliss-32 V4.0-74 


SE action routines 


-Sep-1 LINKER.SRCJLNKOPTION.B52; 1 


routine definesymbolval = 
begin 


i This routine is called by TPARSE when the value is parsed in the SYMBOL= option 


n 
A 
3 
" 
0 
Q 
" 
0 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


k 
R 
9 
0 
1 
§ 
4 
5 
; 
8 
9 
0 
1 
§ 
4 
5 
6 
? 
8 
9 
0 
1 
g 
4 
5 
6 
7? 
8 


a Se bee be Bi i Sn, he Sn Sy Sy ee | 


SSN NNN 


AVIS SOIREE 


AN 


Mrororofrororerory» 


builtin 
remque, 
ap, 
map 
ap : ref bblock; 
local 
nxtsyment, 
crfsts; 
if .cursymdesc(sym$l_udflink] neq 0 ! Is 
then ! 


symbol on undefined List already? 
ia a previous UNIV=this_symbol) 

' 
i 


begin 
rengue (cursyndesc ts m$l_udflink], nxtsyment); ' If so, then remove it and lower 
a gw_nudfsyms = .lnk$gw_nudfsyms - 1; the count of undefined symbols 
end; 

ryreyetest Csym$l_value] = os, Ctpa$l_number]; 'Set the symbol value 

if .ink$gl_ctlmsk Clnk$v_long ‘if generating a long map 


then 


begin 
er¥sts = crfSinsrtref (lnk$al_valctltb, cursymdesc Csym$l_valuel, 
! then insert 3 reference to its value 
cursymsnb Csnb$b_naming], .cursymdesc Csym$w_flags], 0); 
if not .crfsts then signal (Cin$_er err, 0, .crfsts); 


end; 
return true 
end; ‘of definesymbolval 
0004 00000 DEF INESYMBOLVAL: 
-WORD Save R2 
52 00000000' EF 9 9002 MOVAB CURSYMDESC, R2 
5 62 DO 0000 MOVL § CURSYMDESC. RO 
60 05 0000C TSTL (RO) 
09 +1 0 BEQL 1 
51 0 OF 1 REMQUE (RO), NXTSYMENT 
000000006 9 B7 0001 DECW  LNK$GW_NUDFSYMS 
50 D 19 1$: MOVL CURSYMDESC RO 
60 1¢ AC OOD 1 MOVL (AP), (RO) 
2E 000000006 90 E9 BLBC LNKSGL_CTLASK+1, 2$ 
re OA Hi C 9 MOVZ2WL 10(RO), =-(SP) 
06 =A 4 ci ADDLS a, CURSYMSNB, -(SP) 
000000006 F PUSHAB LNKSAL_VALCTLTB 
000000006 00 FB A CALLS #5 CRFSINSRTREF 
11 E 1 BLBS CRESTS, 2$ 
DD 00044 PUSHL CRESTS 
E D4 0004 CLRL. = = (SP) 
000000006 8F DD 0004 PUSHL M#LINS_CRFERR 


g 3 
LNK_PROCOPTIONS Linker options parser 16-Sep-1984 00:22: AX-11 Bliss-32 v4.0 Page 100 LN 
yO4=000 TPARSE ection rout nes ~3007 138% 99:94:36 LINKER.SRC LNKOPTION. 4 2:1 ° 485 VvOé 


000000006 9° CALLS #3, LIBSSIGNAL 


FB O04 , 
DO 00055 28: MOVL = #1, RO ; 182 
04 00058 RET : 182 


; Routine Size: 89 bytes, Routine Base: S$CODES + 087A 


3 
LNK_PROCOPTIONS Linker options parser Ig-§e -1984 00:22: AX-11 Bliss-32 V4.0-74 P 01 LN} 
y067000 TPARSE action rout nes ~3007 1383 99:94:38 LINKER.SRCJLNKOPTION.B352;1 age 49) v04 
3 1745 1 1 routine set_unsupported = 3 4 
i 1748 1883 —“— 3 
ge gr + 
3 1245 1 } This routine is called by TPARSE to process the UNSUPPORTED= option. ; 
5 1751 1835 i Currently, only the low bit of this mask is defined -- when set it means 4 
3; 17 ¢ 1 $ ' that demand zero pages should be allowed for a shareable imoge. In the future, 4 
3; 17 1 ' this grouse be done by looking at the ISD attributes, but this is too risky e ¢ 
3; 1754 1838 ! at this stage in the release. (The real problem is that the image-activator 4 
; i 5 : 4 ; does not know how to deal with shared demand zero sections.) | 
: 1787 4] ; Inputs: ; 
3 ! + 4 
; 1759 1 rk ! AP Points to tparse_ block 4 
: 1760 | re: APCtpa$l_number] Bit mask for LNKSGL_UNSUPPORTED s 4 
g : 4 
3 1766 168 Outputs: + 
; ; s¢ 
3 1764 1848 ! Link$gl_unsupported set 4 
: 165 189g | niger % t 
e ,aee P+ 4 
3 1767 1851 builtin 4 
159 1888 om | 
; ma | 
: 1770 1854 4 | : ref bblock; -¢ 
3 1771 1855 ink$gl_unsupported = .ap [tpa$l_number] ; + 4 
3 1776 1856 return true 4 
: 177 1857 1 end; : 
34 
e ¢ 
-¢ 
0000 00000 SET_UNSUPPORTED ar | 
WOR Save goth ing : 189? | 
00000000" EF 1C AC 00 00002 MOVL 28(AP), LNKSGL_UNSUPPORTED ; 1855 s¢ 
50 01 DO OQO00A MOVL #1, RO : 1856 3 4 
04 0000D RET ; 1857 3 < 


; Routine Size: 14 bytes, Routine Base: S$CODE$S + 08D3 


3 1774 1858 1 


m4 3 
LNK_PROCOPTIONS Linker options parser 16-Sep-1984 00:22: AX-11 Bliss-32 V4.0-74 
v04-000 TPARSE action rout nes g73e0713 4 99°99 538 LINKER. SRCILNKOPTION.B 231 
; 177 1859 1 routine set_universal = 
$1 a 0 aca 
; 1779 1 66 } This routine is called for each symbol in the UNIVERSAL option by TPARSE 
: 1781 1 8 builtin 
has 1866 ai 
; ma 
: 1786 ! e; : ap : ref bblock; 
: 1786 1869 namelengthcheck (ap Ctpa$l_tokencnt), Lnk$gt_symstring); 'Check Length of symbol name 
3: 1787 1 oy search_ nsert. symbol (ap CEpasttokencnt, corsyndesc, cursymsnb); ° 4 
3; 1788 187 'Lookup/insert symbol into symbol table 
; 1789 1376 cursymdesc Csym$w_flags] = (.cursymdesc(sym$w_flags] and ! Preserve def and supres 
: 1790 187 (gsy$m_def or sym$m_supres) ) ! bits, and set universal 
3; 1791 1874 or gsy$m_uni; : ag 
: 16 1875 if not .cursymdesc(sym$v_def] ! If not defined, 
3; 179 1378 hen ! then insert in 
3 1794 187 ink$insudfsym (.cursymdesc); ! undefined list 
; 1795 1878 crossref_symbol (.cursymdesc, . et ag 'Cross reference the symbol 
: 1796 1879 -cursymdesc(sym$w_flags]); 
3; 1797 1880 return true 
; 1798 1881 1 end; 'Of set_univ 
0004 00000 SET_UNIVERSAL: 
«WORD Save R2 
52 00000000' Fr 9E 00002 MOVAB CURSYMDESC, R2 
000000006 00 9F 00009 PUSHAB LNKS$GT_SYMSTRING 
10 AC 99F OOOOF PUSHAB 
00000000vV_ EF 02 FB Beets CALLS #2, NAMELENGTHCHECK 
04 Ad 9F 0001 PUSHAB CURSYMSNB 
52 0D O00I1C PUSHL 
10 AC QF QOOIE PUSHAB Nad: 
00000000v ff 0 Fe 0021 CALLS SEARCH_INSERT_SYMBOL 
0 é : 0028 OVL  CURSYMDESC; RO 
51 A A C 00028 MOVZWL 10(RO), R1 
51 FFFFDFFD 8F CA QOO2F BICL #-8195, R1 
OA AO 51 4 AY 000 BISW #4, 10(RO) 
09 OA AO 1 £0 000 S #1, 10(RO), 1$ 
0 DD 4 PUSHL RO 
000000006 98 1 44 4 CALLS #1, LNKSINSUDFSYM 
b p 49 18: MOVL CURS YMDESC RO 
7E 0A AO 3C 0004 MOV2WL 10(RO), -(SP) 
04 A2 DD 0005 PUSHL  CURSYMSNB 
50 DD 000 PUSHL R 
00000000Vv EF 8 fe 0 CALLS #35, CROSSREF _SYMBOL 
0 . 3 05C¢ MOVL #1, RO 
4 0005F RET 


; Routine Size: 96 bytes, Routine Base: S$CODES + 08E1 


SeSe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se BeBe Bete 


LNI 
Vv0é 
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tt tt 
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wr 


Routine Size: 


options parser 
E action routines 


; Flag all universal temporarily 


ie) 
889 


— 


13 bytes, 


Unk$gl_ctlmsk Clnk$v_alluniv] = true; 
a ae true; 
end; 


1 + rout one set alluniv = 
1 begin 

1 ! 

1 

ist 

188 

1 

1 


0000 00000 SET_ALLUNIV: 


WORD Save noth Me 
000000006 00 04 88 00002 BISB2 #4, LNKSGL_CTLMSK+3 
50 01 00 00009 MOVL #1, RO 
04 0000C RET 


Routine Base: S$CODE$S + 0941 


N 3 
$$p=198e 22:47:28 ECTimeRssmeSiNKOPTiON- 682; 1 


na 


<- 
<j 


LNK_PROCOPTIONS 
v04=000 


Se Oe ee Se Oe Se Se Oras Sees ese 
— —) sb 
"OC OCONOUSwr— 


; Routine Size: 


Linker options parser 16-50 Sep-1984 AX-11 Bliss-32 v4.0 
TPARSE action routines sen-1984 98: #3 3§ LINKER. SRC LiROPTION.B 2;1 
1890 1 routine set_include = 
: 4! begin 
38 ! This routine processes the /include qualifier 
99 "builtin 

ap; 
1 38 ond" “ 
38 set Gal fe _s . (fdb$m_Lib fdb$m_Libextr)); ‘Set lifier fl 

u s a " m_libr or r ! 
1900 set equal re8t . ¥ Spee eee 
1901 return ieee 
1902 end; !Of set_include 

0600 00000 SET_INCLUDE: 
«WORD Save nothing 
7E 42 ef 9A 00002 MOVZBL #66, (SP) 
pe PUSHL 
00000000v_ EF e cute #2, SET_QUAL_FLAGS 
000000006 98 : rB 11 CALLS #1, LNKSSETLIBRIN 
" Be boot weet 


28 bytes, Routine Base: SCODE$S + 094E 
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LNK_PROCOPTIONS Link tions pars ib-se Sep-1984 AX-11 Bliss-32 V4.0-74 Page 105 
voe=000 ARSE action routine s- 1984 99:19:39 ae 385 


TPARSE action routines -Sep-1984 LINKER. SRCJLNKOPTION.B352;1 
: 1823 1903 1 routine set_library = 
> 1824 1904 begin 
: 1825 1905 : 
; 1826 19 ! This routine processes the /Library qualifier 
: 1827 190 : 
3; 1828 1908 builtin 
>: 1829 1909 ap; 
; 1830 1910 map 
; 1831 1911 ap : ref bblock 
; 18 ¢ 1316 set qual flags (. ey (fdb$Sm_Libr or fdb$m_libsrch)); 
; 18 191 inkSsetlTbrin(1); 
; te 1914 return true 
>; 1835 1915 end; !Of set_library 


0000 00000 waht aman 


wo Soye nothing ; 1903 
7E 82 gr 9A 2 MOVZBL #150, -(SP) : 1912 

DD PUSH : 

00000000V EF FB CALLS #2, SET_QUAL_FLAGS : 
000000006 1 Pe Boot CALS #1. LNKSSETLIBRIN ies 
98 ; 00 0018 HOVE. #1. RO : 1914 
4 00018 RET : 1915 


; Routine Size: 28 bytes, Routine Base: S$CODES + 096A 


eo - _ --4 
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v04=000 TPARSE action routines Sep-1 38 99: “f: 38 LINKER. SRC LNKOPTION. 5 2;1 . 488 
; 1837 1318 1 routine set_selective = 
; : : : | begin 
3 Hr 1818 } This routine processes the /selective qualifier 
: 1306 1921 builtin | 
> 184 19 § ap; 
3 1844 19 map 
> 1845 1924 ap : ref bblock 
3 + 4 1925 set_qual_flags (cap, fdb$m_selser); 
>; 184 1926 return true 
>; 1848 1927 1 end; 'Of set_selective 
0000 00000 SET_SELECTIVE: 
«WORD Save nothing ; 1916 
08 DD 00002 PUSHL 4&8 ; 1925 
5C DD 000 PUSHL AP ; 
00000000V EF 02 FB 00006 CALLS #2, SET_QUAL_FLAGS ‘ 
50 01 00 0000D MOVL #1, RO : 1926 
04 00010 RET 3; 1927 


Routine Size: 17 bytes, Routine Base: SCODES + 0986 
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001C 00000 SET_SHAREABLE: 
-WORD Save R2,R3,R4 
54 0000 006 00 9E 02 MOVAB LNKSALLOCLUSTER, R4 
3 00 6 06 0 9€ MOVAB LNKS$GL_CURCLU, R3 
2 00000000' EF 9 9 MOV CLUOPTFLAG, Rd 
E 8 C #8, SP 
4 OD A 
C C 


L 
PUSHL AP 


LNK_PROCOPTIONS Linker options parser i§-Se Sep-1984 AX-11 Bliss-32 V4.0-7 
v04=000 TPARSE action routines 8ep-1984 99: ¢ 38 LINKER. SRCJLNKOPTION. 3 2:1 
>: 1850 19 1 routine set_shareable = 

en 

: 1858 3 1 This routine processes the /shareable qualifier 

3 132? 19 g builtin 

3 18 $ 1934 ap; 

>; 185 1935 map 

; 1858 19 | ap : ref bblock; 

>; 1859 19 loca 

: 1860 1938 “descr : bblock Cdsc$c_s_bin]; 

>; 1861 1939 

3 1866 1940 set_qual_flags Fe fdb$m_shr); ; 

: 186 1941 if TUmk$Gl_ctlmsk C(nk$v_sysJ ‘Don't allow /share with /sys 

: 1864 ok then 

; 1865 194 signal_stop (Lin$_shrinsys); 

>: 1866 1944 : 

3: 1867 1945 ! If this is in a cluster= option and there are other 

>: 1868 1946 ! files in the cluster, issue a warning and create a new 

; 1869 1947 ' cluster. 

: 1870 1948 ! 

; 1871 1949 7 me and .lnk$gl_curclu Cclu$l_fstfdb] neq 0 

; 1376 1950 

3 187 1951 

>; 1874 1336 St he tasesa- length] = .tparse —_ Ctpa$l_tokenptr] - .cmdbuffer; 

>; 1875 195 descr Cdsc$a_pointer) = .cmdbu 

> 1876 1954 signal (Lin$ “thre ey 0, Lins sopilin. 3, descr, tparse_block Ctpa$l_tokencnt], 
: 1877 1955 tparse sbtock | ttpa a$( -Stringcht)) 

; 1878 1956 ink$alloclister (ink$gl-curclu); ‘Allocate a new cluster 

: 1879 1957 ink$gl_curclu Celu$v_protect] = .protectflag; 'Set protect if on 

3; 1880 1958 § end; 

: 1881 1959 . 3 

>; 1882 1960 2 7 oat -cluoptflag 'If not processing cluster= option 
; 1883 1961 

> 1884 1306 begin 

>: 1885 196 ink$allocluster (Lnk$gl_ curclu); ! then allocate a new cluster descriptor 
: 1886 1964 ink$gl_curclu CcluSv_protect] = .protectflag; ‘Set protect if on 

: 1887 1965 2 end; 

>; 1888 1966 

> 1889 1967 ink$gl_curclu tetusy= shrimg) = true; 

: 1890 1968 ink$gl-curclu Cclu$v_copy] = . sharecopy: 

: 1891 1969 ink$setshrblin (); 

3 1398 1970 return true 

; 189 1971 1 end; 'Of set_shareable 


ree i 


} 
i 


1928 


F 4 
LNK_PROCOPTIONS Linker options parser 16-Sep-1984 00:22: AX-11 Bliss-32 V4.0-7 pe 
v04=000 TPARSE action routines 97308-1382 99:99:38 LINKER. SRCJLNKOPTION. 4 2;1 age 198 


2 


F F 1 CALLS SET_QUAL_FLAGS ; : 
0D Mintddiitts it : £8 5 BBC 4° ENKS ial as 1$ + 1941 : 
000000006 8F DD p PUSHL into + 1943 : 
000000006 09 1 FB CALLS ; : 
4 6¢ E A 1$: BLBC LTP + 1949 : 
50 63 D D MOVE CNKSGL FLAG, 38 RO ; : 
08 ad Dd 4 TSTL (RO) : ; 
3a 1 4 BEQL $ : : 
6E B42 (6 Ae A 4 SUBW3  CMDBUFFER, TPARSE_BLOCK+20, DESCR : 195 : 
04 AE (OA 4 MOVL  CMDBUFFER R+z + 195 : 
AB Ad 9F 0005 PUSHAB TPARSE_BLOCK+ + 1955 : 
; Ad 9F 05 PUSHAB TPARSE-BLOCK+16 + 1954 : 
AF F : PUSHAB DESCR : : 
DD 0005 PUSHL @# ; : 
000000006 8F DD 0005B PUSHL aL INS _OPTLIN ; : 
E D4 00061 CLRL (SP) : : 
000000006 BF DD 00063 PUSHL | IN$_SHRSEPCLU : : 
000000006 00 07 FB 0068 CALLS LIBS$SIGNAL ; : 
3 pd 00070 PUSHL RS” + 1956 : 
64 07 FB 0078 CALLS #1, LNKSALLOCLUSTER : : 
50 63 DO 0007 MOVL LNKSGL_CURCLU, R : 1957 : 
58 a0 01 07 08 A FO 0078 INSV _— PROTECTFL LAG. | i, #1, 88(RO) : F 
OF $ E8 0007F 3s BLBS § CLUOPTFLAG, 4 + 1960 ; 
DD 00082 3$ PUSHL + 1963 ; 
64 01 FB 00084 CALLS #1, LNKSALLOCLUSTER : ; 
50 63 DO 00087 MOVL LNKSGL oC RO : 1964 : 2 
58 Ad 01 07 08 Ag FO OO08A INSV _— PROTECT FLAG. Yan" #1, 88(RO) : 3 
0 63 DO 00091 4$ MOVL  LNKS$GL_CURCLU, RO + 1967 3 
58 a0 04 88 00094 BISB2 #4, TRO ) : ; § 
58 a0 01 04 04 A2 FO 00098 INSV  SHARECOPY, #4, #1, 88(RO) : 1968 ; 
000000006 00 00 FB 0009F CALLS #0, LNKS$SETSHRBLIN : 1969 3 
50 01 DO 000A6 MOVL #1. RO : 1970 i 
04 0009 + 1971 : ; 
; Routine Size: 170 bytes, Routine Base: S$CODE$ + 0997 : 5 


: 
LNK_PROCOPTIONS Linker options parser IB-se Sep-1984 AX-11 Bliss-32 V4.0-7 Page 99! 
v04=000 TPARSE action routines 8opn 188s 99:98:38 Hee e sae si ncob tion 68251 oe 3) | 
>; 1895 1328 1 routine set_shrcopyflag = | 
WBE Be gy bean 

s 138 19¢5 This routine is called by TPARSE to set/clear the copyflag for /share 

3; 1900 1399 builtin 

: 1901 1378 ap; 

3 1308 197 map 

; 190 1980 ap : ref bblock; 

3: 1904 1981 7. of arecopy neq 0 

3; 1905 19 ¢ 

: 1308 19 be egin 

; 190 1984 signal (Lins shrcpyign); 

: 1908 1985 sharecopy = 0; 

3; 1909 1986 end; 

; 1910 1987 return true 

3 1911 1988 1 end; !Of set_shrcopyflag 


0004 00000 SET_SHRCOPYFLAG: 
WORD 


. ave R2 3 
52 00000000" EF 9E 00002 MOVAB SHARE COPY. R2 : 
62 05 00009 TSTL SHARE COP ; 1981 
OF 13 00008 BEQL 1 3 
00000000G 8F DD Ronee PUSHL ear secteur” 3; 1984 
000000006 00 01 FB 0001 CALLS cob TBS 3 
62 D4 OOOIA CLRL SHAR ; 1985 
50 01 DO OOOIC 1$: MOVL “i, ae : 1987 
04 0001F RET ; 1988 


; Routine Size: 32 bytes, Routine Base: S$CODES + 0A41 


H 4 
16-Sep-1984 00:22:5 AX-11 Bliss-32 V4.0-74 Page 

TPARS g7300713 4 90:44:36 LINKER. SRCJLNKOPTION.B32;1 ° 
; 1913 1388 1 routine insertcluster = 
; 1914 19 begin 
; 1316 1992 i Thi tine i ts th t cluster in the cluster t 
: ! s routine inser curr 
1318 1336 ; utine inserts the current cluster in the cluster tree 
; 1918 1994 local 
3 1332 1936 blockaddr; 
: 1921 199 if LibSlookup_tree (lnk$gl_clutree, ink$gl_curclu Cclu$b_naming], 'If cluster name already in tre 
: ¢ 1938 lokec Cunemene, blockaddr) hi as ° . ° 
; en 
: 1924 0 signal (Lin$_mulcluopt, 2, ink$gl_curclu Cclu$b_naming], ' then tell 
: 13 ? 091 ° soptiontt Leneme): er oe _— ° ee 
: 1927 $08 ink$insert_clu (.lnk$gl_curclu); !Insert the cluster in the tree 
: 1358 004 return true 
: 1929 005 1 end; 


0004 00000 INSERTCLUSTER: 
«WORD 


Save R2 3 

52 000000006 00 9€ 0000 ROVAB LNK$GL_CURCLU, R2 : 

5E 4 C2 00 9 SUBL2 #4, SP : 

F DD 0000C PUSHL § : 

900000006 OF 90¢ PUSHAB LNKSCLUNAMCMP ; 

7E 62 005¢ F C1 0001 ADDL3 #92, LNK$GL_CURCLU, -(SP) : 
000000006 00 9F 0001 PUSHAB LNK$GL_CLUTREE : 

000000006 00 4 FB 909 CALLS #4, LIBSLOOKUP_TREE : 

1D 0 € 99 BLBC : 

00000000' EF DD 000 § PUSHL OPTIONFILENAME : 

7E 62 0000005C F C1 900 ADDL #92, LNKS$GL_CURCLU, -(SP) : 
02 DD 003A PUSHL @# : 

000000006 8F dD 0003c PUSHL #LINS_MULCLUOPT : 

000000006 00 04 FB O00K8 CALLS #4, LYBSSIGNAL : 

62 DD 00049 1$: PUSHL LNK$GL_CURCLU : 

000000006 00 01 FB 0004 CALLS #1, LNRSINSERT_CLU 3 

50 01 D0 0005 MOVL = #1, RO : 

04 0005 RET : 


; Routine Size: 86 bytes, Routine Base: SCODES + 0A61 
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er options parser Igege -1984 00:22: AX-11 Bliss-32 V4.0-74 e 1 
action routines ~3ep-19 4 99:99:38 LINKER. SRCJLNKOPTION.B32;1 si ) 


routine processfile = 
begin 


i This routine is cailed by TPARSE when a complete file specification 
has been scanned. 


builtin 
ap; 


4 ap : ref bblock; 

local 

ona : bblock Cdsc$c_s_bini; 
filebits = .fileflagsadr : bitvector; 


if (.filebits and fdb$m_libr) ! Call Lnk$setlibrin now that all 
then ! qualifier parsing is done 
ink$setlibrin(1); 


of st luaptriog 'If processing a cluster= option 


if > LnkSotcurciy Cclu$Sv_shrimg] 'If current cluster is shareable image 
d ((cfilebits and Fdb$m_shr) eql 0) ! and this file is not a shareable image 


egin 
descr Cdsc$w_length] = .tparse_block Ctpa$l_tokenptr] - .cmdbuffer; 
'Create string descriptor for part of Line 


dy, user we are creating new cluster 
¥ descr, tparse_block (Ctpa$l_tokencnt], tparse_block Ctpa$l_stringcnt]); 
ink$allocluster (lnk$gl_curclu); ‘Allocate a new cluster 
descr pgscew.tength2 = SymSc_max ing: 'Set ength of buffer 
descr ([dsc$a_pointer] = nk$gl curclu CcluSt_nameJ; 'And starting address 
(T!KAC_!UL')), destr, descr, 


signal (Lin$-shrsepclu, 0, 
° ins optTin, 4 
s 


sys$fao (uplit (stringdesc 
'Create cluster name of default_cluster_N 
ink$gl_defclu Cclu$b_naming), a inka! ge tf iunua): 
ink$gl_curclu Cclu$b_nam{ng] = .descr Cdsc$w_lengthJ; 'Set resulting cluster name Length 
Lnksot de tc} unya = .Unk$gl_defclunum + 1; 
oneoet cure te clu$v_protect] = .protecttlag; 
end; 
end 


se 
if .lnk$gl_curclu Cclus ophring! ‘Not cluster option, is current cluster shr image? 
and .lnk$gl_curclu Cclu$Sl_fstfdb] neq 0 ' and there are files in the cluster 


el 
then 
ink$gl_curclu = Lnk$gl_defclu; ‘Put this file in the default cluster 


If this file is a shareable image, or the first file in a CLUSTER= 
option, then insert the cluster into the cluster List 


{f oinkSglcurcls CcluSv_shrimg] or (.cluoptflag and (.ink$gl_curclu CcluSl_fstfdb] eql 0)) 


be 
it? 
th 


in 
og natal curcte Cclu$v_shrimg] 'If cluster is shareable image 
nm we must set the cluster name 


SE 

4 

3 

4 

é 

: descr Cdsc$a_pointer] = .cmdbuffer; 
4 

4 

4 

4 

4 

4 

4 

4 

4 

4 begin ! the 

4 getfilename (filespec_desc, descr); !Get filename portion of file spec 
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00 4C 55 21 SF 43 4 
000 
00 


6E B4 AG C4 
04 AE C4 
A8 
0 
8 
000000006 


000000006 
000000006 00 


000000006 00 
ey 0000005D 
ca} 


f. 


04 AE 


000000 
000000006 


5¢ 


Puro 
ooo 


cluSt_nam 


ste Ias SOHEB 
$b_naming] = .descr CdacSy. Leng thi; 


u 
ch$move (.descr ty dgcSu a ASF -descr Cdsc$a_po qnterd, 


‘Insert cluster in cluster tree 


LNK_PROCOPTIONS Linker options parser 

ya=000 TPARSE ection rout nes 

3 19 3 4 ink$gl l 

We BRE cA? 

; nk$gl_curc 

2 1991 066 “— ee 

: 199¢ 6 insertc luster QO; 

; 199 bee end; 

: 1998 $9 Ink$gl_inclst = included 

: nc = include_desc; 
3: 1996 071 inpu eVletrie lespec_desc, 1 ); 
; 1997 ore return true 

; 1998 073 «1 end; 


‘Of processfile 


.PSECT $PLIT$,NOWRT,NOEXE,2 
1 21 00088 P. AAN: .ASCII \!AC_!UL\<0> 
00007 90090 P-AAM: .LONG 
00000" 00094 “ADDRESS P.AAN 
.PSECT $CODES$,NOWRT,2 
O1FC 00000 PROCESSFILE: 
WORD Save R2,R3,R4, RS. R6,R7,RB 
F 9E 00002 MOVAB LNKSGL_DEFCLUNUM, R& 
0 9€ 00009 MOVAB LNKSGL oC CURCLU var’), 
F 0010 MOV CLUOPTFLAG, RG 
8 001 SUBL2 #8, SP 
Ab OO1A MOVL FILEFLAGSADR, R2 
67 DO OOO1E MOVL § LNKSGL_CURCLU, RO 
66 £9 00021 BLBC CLUOPTFLAG, 1$ 
ce 1 00024 BBC , 88(RO 
0029 BBS (R2) 
Ab 00 p SUBW3  CMDBUFFER, TPARSE_BLOCK+20, DESCR 
Ab 00 MOVL CHDBUFFER DESCR+S 
A6 9F 000 PUSHAB TPARSE_BLOCK+ 
A6 9F 000 PUSHAB TPARSE~BLOCK+16 
00 DESCR 


WIN & & & & 
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& 
#LINS_OPTLIN 
=(SP)~ 


e INS_SHRSEPCLU 
» LTBSSIGNAL 


Ht. LNKSALLOCLUSTER 
#93. LNK a CURCLU, DESCR+4 
LNK$GL_ 

LNKSGL—DEFCLU+92 

DESCR 

DESCR 

P.AAM 

a5, SYSSFAO 


sete iia: 


AX-11 Bliss-32 V4.0-74 
LINKER. SRCJLNKOPTION.B52; 1 


Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Ge Se Se Se Se Se Se Se Be Se Be Se Se Se Be 


Pepe, li 


'Set length into cluster descriptor 
!Copy in cluster name 


2006 


MPPMNONNoNon 


of folololololo) 


WAIN 
VIN Onno 


LNK 
V04 


LNK_PROCOPT IONS binker options parser 
v04=000 TPARSE action reut nes 


000000006 00 
50 


68 
58 Ad 01 07 08 Ag rS 
oc 58 = =A0 02 €1 
08 A b 
7 000000006 o9 . 
0D 58 s ; E 
2 66 E 
08 A 
19 58 = A0 6 E 
E pp 
FO OA F 
00000000v gf 03 Fe 
0 6 3 
5C = AD 6E : 
5D AO 04 BE +3 2 
FECC CF 00 FB 
FC AB D8 A6 SE 
01 oD 
ro 8 RS 
1 000 
04 0 


; Routine Size: 243 bytes, Routine Base: S$CODE$ + 0AB7 
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SE ENE 


< 38:8:38 


AX-11 Bliss-32 v4.0 
LINKER. SRC LNKOPTION. +} 2;1 


LNKSGL Sa aes 
PROTECTFLAG, #7, #1, 88(RO) 


88(RO), 2s 
Bio) 
LNKSGL -DEFCLU, LNKS$GL_CURCLU 
LNKS LoCUR R 
cane: $ 


n>, 88(RO), 4$ 
Pp 


er 35, DESC 
FTLENAME 

LNKSGL_CURCLU, RO 

DESCR, 92(R 

. SCR, Hactesicuat 93(RO) 


TCLU 
TNELUDE. DESC, LNKSGL_INCLST 
FILESPEC DE DESC 

. INPUTFILE 
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4 
of options parser 1 Sep-1984 AX-11 Bliss-32 V4.0-7 Page 114 
E action rout nes Sep-19 4 99: 4: 38 LINKER. SRCJLNKOPTION. 8 2;1 . (41) 
ag getfilename (filedesc, retdesc) = 
! 
i This routine returns the filename portion of a 
} file specification 
"oma 
P tiledesc : ref bblock, 
retdesc : ref bblock; 
local 
status, 
rsidsc : vector (2), 
rslbuf : bbloc k nam$c _maxrss), 
Ses : bblock [nam$c_maxrss], ! buffer for resultant string 
sabuf : bblock Cnam$c_maxrss), ! buffer for expanded string 
filetab : bblock Cfab$c_bln], ! temporary FA 
filenam : bblock Cnam$c~ blnJ; ! temporary NAM block 
rsldsc £0} = nam$c_maxrss; 
rsldsc = rslbuf; 
if (status = fy, (lLognam = .filedesc, ! If the filedesc is a logical name, 
rslbuf = rsldsc)) eql ss$ normal 
sae ! don't translate, just return 
polices p¢scéu_ length] = .filedesc Cdsc$w ztengthd: 
petdess dsc$a_pointer]) = .filedesc Cdsc$a_pointer); 
return true; 
end; 
$nam_init (nam = filenam, rsa = rsabuf, rss = nam$c_maxrss, esa = esabuf, ess = nam$c_maxrss); 
Stab. hen sfeb = yiteteb, fop = nam, fna = .filedesc Cdsc$a_pointer], fns = .filedesc Ldsc$w _length], 
= enam 
Seeree. (fab = filefab): 
retdesc Cdsc$w_length th]'= .filenam Cnam$b_name) 


ile 

retdesc (Cdsc$a_pointer] = “ch$find 5Sub fe Tiledesc Cdsc$w length], .filedesc Cdsc$a_pointer], 
ilenam Cham$b_name), .filenam nam$l _name)); 

return true 

end; 


-EXTRN SYSSTRNLOG, SYSSPARSE 
007C 00000 GETFILENAME: 
WORD 


R2 R3, RA, RS,R6 : 2074 
SE FC4B CE 9E 90002 HOVAB =D 55 SPf : 
F8 AD FF F 9A MOVZBL #25 ; 209 
FC AD FEF8 cD 3 0¢ OVAB nSiBor, shee osces 093 
7E D4 00014 CLRL = = (SP) : 
FB AD OF 1 PUSHAB RSLDSC ; 
7E D4 0001 CLRL = = ( SP) ; 
56 04 AC D0 18 HOV — R6 ; 
000000006 00 F 1 CALLS @ SYS$TRNLOG : 
of 98 D 8 $3 CMPL STATU : 


~ 


; Routine Size: 
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2 00000000" 
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000000006 


000000006 00 
00 3 08 


; Routine Size: 77 bytes, Routine Base: S$CODE$ 


0004 00000 eitmmate. * 


EF 9 0002 
AC D at 
B2 D 001 
2D (1 001 
ns A Bat 
A2 D 01 
AO 9F 88 2 
AO 9F 0 
ag 9F 00028 

0D 8 B 
BF DD 4 
7. 09 
03 HF Goode 
Ai 68 ie 

4 04C 
+ 0C62 


N 4 
16-Sep- 


N— 


RO 


1986 22:44:29 


to Linker options parser 

v04= TPARSE action routines 5-Sep- 
; 2040 113. 1 routine set_qual_flags (tpablock, qualbits) = 

; 2041 1144 1 sg Hie ’ 

3 ong 115 1 

: 138 1 

3; 2044 11 begin 

3; 2045 18 p 

; bee 11 tpablock : ref bblock; 

: 204 120 loca 

: 98 ! 1 descr : bblock Cdsc$c_s_bln]; 

; 2050 1 : if (..fileflagsadr and .tpablock Ctpa$l_param]) neq 0 
; $2) 124 then 

; 20 ¢ 125 begin 

; 205 126 descr Cdsc$w_length] = .tpablo 

3: 2054 127 descr Ldsc$a_ pointer] = .cmdbuff 

: $055 158 signal_stop Fins contqual, 6 

; 2056 129 tpablock tpaSl_stringcntd); 

; 2057 130 d 

; 2058 131 else 

3; 2059 1 ; -fileflagsadr = ..fileflagsadr or .qualbits; 
: soe 13 return true 

; 2061 134 «1 end; 


' 
This routine checks for conflicting qualifiers and then sets the proper bits 


'Check for conflicting qualifiers 


ck Ctpa$l_tokenptr] - .cmdbuffer; 
er; 
Lin$_optlin, 3, descr, tpablock Ctpa$l_tokencnt], 


'Of set_qual_flags 


ave R2 
FILEFLAGSADR, R2 

p 
PABLOCK, RO 
@FILEFLAGSADR, 32(RO) 
CMDBUFFER, 20(RO), DESCR 
MDBUFFER, DESCR+4 
RO) 
6(RO) 
DESCR 
#LINS_OPTLIN 
(SP) 
aL Ns CONF QUAL 
#7, LIBSSTOP 


RO—WOO BIH 
am” Wo -~ 3 ze™ VCore 


SALE TS. @F ILEFLAGSADR 
#1, R 


AX-11 Bliss-32 V4.0- 
LINKER. SRCJLNKOPTION 


PEI TE SOA NR eR i BNL EES Fe iat CTR a Ee = 
5 
T j > = 2 3 = = e as 
rave al pines Dre Pincort nee Linked, ordered list 1G-Se0-1984 99:44:38 ArAeER sae tLacob tion. 6 2;1 Page 1h) 


| 
; 2063 135 1 Xsbttl "Search / insert into Linked, ordered List’; 
: 2064 1 § 1 routine search_insert_list (Listhead, namedesc, blocksize, blockaddr) = 
: 065 : begin 
; Oe? 1 S i This routine searches a Linked List for a given name. If the name is | 
; 8 140 ' not found, a new node is created and the name is inserted. The structure 
3 8 3 $1 of the Links in the List must be as follows: 
: 2071 128 i ptr===> Link to next entry | 
: Ore 1a aice of name (byte) | 
: ore 138 (any other data) 
BB HUE § | trou 
: 2078 130 i Listhead the address of the Linked list head 
; 44 13 blocksize size of block to allocate if not found 
; +2 138 Outputs: | 
3 08° 135 blockaddr entry address 
: 508s 139 5 ine | 
3 2086 158 macro | 
; 2087 159 nextblock = 0,0,32,0%, 'First longword is Link 
; 2088 160 namesize = 4,6,8,0%, ‘Then a byte of name length | 
: 24 19) nameaddr = 5,0,0,0%; 'Followed by name 
3 ma 
: 2091 188 : listhead : ref bblock, 
; 209 164 namedesc : ref bblock; 
3; 209 165 local 
3 2094 196 lastblock : ref bblock, 
3 34 +4 thisblock : ref bblock; 
: 2097 169 thisblock = .listhead; ‘Start at top of List 
; 098 170 , _ Uastblock = .thisblock; 
; 190 76 Loop looking for entry, or one less than desired entry 
: 1 174 while (thisblock = .thisblock Cngatlock?> neq 0 do | 
: 21 175 if ch$eql (.thisblock Enanesize thisblock Cnameaddr], .namedesc Cdsc$w_length], | 
3; 21 178 -namedesc (dsc a_pointerd, 0) 
: 2105 17 then 
3 21 18 begin 
3; 21 17 -blockaddr = .thisblock; ‘Return found entry to caller 
oi ett a ore 
> 2110 188 else | 
3 13 : ? lastblock = .thisblock; 
; 118 ! 5 : Name was not found...allocate a new one 
: 2115 1 $ : Unk Sal Loblk (.blocksize, thisblock); 
; 1g 188 ch$fill (0, .blocksize, .thisblock): ‘Zero the block 
> 211 189 thisblock (nextblock)] = .lastblock tnextblock); ‘Link into the List | 
; 2118 1 lastblock [nextblock] = eb ey) 
3: 2119 191 thisblock Cmnamesize] = .mamedesc (dsc$w_length); 


: 2120 19 
: 2121 19 
3; 21 ¢ 194 
: 21 195 


08 BC 00 
oc aC 00 
05 A6 


; Routine Size: 97 bytes, 


LNK_PROCOPTIONS Linker ge} tons parse 
v04=000 Search / insert into. Linked, ordered List 


ifoseo-19Be 90:92:56 


ch$move (.namedesc aa length], .namedesc geese pointer], thisblock Cnameaddr]); 


eblockaddr = .thisbloc Return address to caller 
return true 


end; !Of search_insert_list 


AX=11 Bliss-32 V4.0 


O1FC 00000 SEARCH. INSERT LIST: 
ORD” Save R2,R3,R4,R5,R6,R7,R8 
046 Ac pp 9900 BUSHL LISTHEAD 
58 6E D MOVL THISBLOCK, LASTBLOCK 
24 6— D 0 MOVL ‘THISBLOCK, R& 
? 08 aC OD 0B MOVL §NAMEDESC, R 
6E 64 D OF 1$ MOVL (Rd), THISBLOCK 
1D 1 12 BEQL & 
54 6— D Oo14 MOVL THISBLOCK, R4 
50 04 Ab 3A 17 MOVZBL 4(R4), RO 
0S Ab - 39 D 0018 CMPCS RO, S(R4), #0, @NAMEDESC, @4(R7) 
6 12 90 4 BNEQ 28 
10 BC 4 D 6 MOVL 4, @BLOCKADDR 
1 11 QO02A BRB 43° 
58 4 00 002C 28 MOVL R4&, LASTBLOCK 
4 0 F BRB 18" 
E DD 1 3$ PUSHL 
0c AC DD 3 PUSHL BLocxs 12 
000000006 90 0 FB CALLS #2) LNKSALLOBLK 
69 Be 04 MOVCS 40, (SP), #0, BLOCKSIZE, (R6) 
6 e8 D rf MOVL (LASTBLOCK), (R6) 
6 6 p 4A MOVL 6, (LASTBLOCK) 
046 A 08 BC 004 MOVB anAMe Sc, 4¢ RO) 
04 &B 0 BC 2 905 MOVC3 EDESC. Aaain?), 5(R6) 
BC 6 DO 000 MOVL Re.  SBLOCK 
50 01 00 0005p 4s MOVL 
04 00060 RET 


Routine Base: SCODES + OCAF 


LINKER. SRC LNKOPTION. 3 231 


i 
2 
= 


5 


— 
oO 


OWONOUES WO OONO 


MFWN OOOO 
DOOOCOGCOOCOCOCN0OO 


POPIPPONIPIPIPNPOPYDIPIPIPYPIPIPINPIPIPINININININININININ SS 


POPS ROPOPONORD es 


PUPA Bs BB BS EE 
NOU EWN (OO ODNOUSWN—O0O®@ 
POPOPORoNoNoPonononononornonofrenonononory 
BDONAVEWN "SO VOONOULSWN oO 


05 


5 
LNK_PROCOPTIONS Linker cptions parser 16-Sep-1984 00:22: AX-11 Bliss-32 V4.0- 
¥04=000 Search P insert’ 6 symbol ; 99:49:38 5 


-Sep-1984 LINKER. SRC 


Asbttl ‘Search / insert a symbol'; 
rout ine search, insert syabe (symboldesc, symblock, snblock) = 
n 


i This routine looks up the symbol in the symbol table and returns 
! the address of the symbol block. If it is not found, it is inserted. 


; Inputs: 

i symboldesc Address of a string descriptor for symbol name 

: symb lock Address of location to return symbol block address 
snblock Address of location to return symbol name block address 
i 


p 
symboldesc : ref bblock; 
local 
symptr : ref bblock, 
sym qpeteing : ney Csym$c_maxingt2, byte]; 
ch$move ((symbo esr ing 0) = Saige p dsc$w length)), 
-symboldesc Cdsc$a_pointer], s abolstring (TJ); 
if inkSsearch (symbolsfring, .symblock, .snblock) 


!Create an ASCIC string 
‘Look up the symbol 


return true; ! and if found then all done 


Not in table, so insert it 


Lnk$Sinsert (symbolstring, symptr, .snblock); 
symptr Esyngtludt Link] = 0; 

symptr Csym$w_flags] = 0; 

-Symblock = .Symptr; s 
return true 

end; 'Of search_insert_Llist 


003C 00000 SEARCH_INSERT_SYMBOL: 
WORD Save R2,R3,R4,R5 


5E BC AE 3 0002 MOVAB = 
5 04 aC 06 MOVL § SYMBOLDESC, RO 
51 A MOVZWL R 
04 ar 1 op MOVE. RI, SYMBOL STRING 
AE 4 8 1 1 MOVC3 R1. @4(RO), SYMBOLSTRING#1 
AC 7D MOVO SYMBLOCK, - 
E 8 17 OCK, -(SP) 
C AE OF 18 PUSHAB SYMBOLSTRING 
000000006 00 : F 1 CALLS #3, LNKSSEARCH 
1C E BLBS RO, TS 
es 
C Ar OF PUSHAB SYMBOL STRING 
000000006 90 03 F CALLS #3, LNKSINSERT 
6— D MOVL  SYMPTR, RO 
60 D CLRL OC 
OA AO B4 CLRW 10¢RO) 
08 BC 50 DO 0004 MOVL RO, @SYMBLOCK 


74 
LNKOPTION.B52;1 


LNK 
e 


7S: palatial eed Ga tr ae ifese 80771 3RS 99:49:38 ER PSRES TR ObtI ON bS2-1 Page 129 


50 01 B? B0R4S 44 18: poy #1, RO : $535 


; Routine Size: 72 bytes, Routine Base: S$CODE$S + 0D10 


eg ee 


F 
LNK_PROCOPTIONS Linker options parser 16-Sep-1984 00:22: AX-11 Bliss- 4.0-74 
v04=-000 Cross reterence’ 6 symbol §-900- 1382 99:99:38 YE INKER’ $Re Licovtion 6 231 Page 18} 


; 2159 9 1 &sbttl ‘Cross reference a symbol’; 

: 199 , 1 rout ine croseret_symvol (symbolblock, snblock, flags) = 

: 216 loos 

: 188 g : 

: 188 : Enter symbol into cross reference if generating one. 

: 2166 $ ¢ { Inputs: | 
> 2168 8 i symbolblock Pointer to symbol descriptor block 

; 2169 9 ' snblock Pointer to name part of symbol block 

; 8 re flags Flags to enter into cross reference 

: 138 rk map 

; see 2244 symbolblock : ref bblock, 

; \t? 2 rf snblock : ref bblock; 

: a1? 3247 crfsts; 

: 2179 2249 if .lnmk$gl_ctlmsk Clnk$v_map] 'If generating a ma 

3 5180 $520 : and not - Lnk$gl_ctlmsk PinkSv_brief] ! that is net brie?” | 
3 en 

3 gi8¢ $s2e begin 

3; 218 25 crfsts = crfSinsrtkey (lnk$al_sytbl fmt, ! then insert the symbol 

; sist 2254 3 snblock Csnb$b_naming), ! pessing the name 

>; 2185 2255 3 bysbot block Csym$l_valuel, ! the value address 

: gine $528 ; - flags); ! and the flags 

; 2188 $$26 if not .crfsts then signal (Lin$_crferr, 0, .crfsts); 

: 2190 2260 Lnk$gl_maxsymsz = maxu (.lnk$gl_maxsymsz, !Set maximum symbol name Length 
: 2191 2261 : Sahblock Esndsb_nealng));” , ' . 

Py end; 

$198 $566 $ return true 

3 2194 2264 «1 end; 'Of crossref_symbol 


000C 00000 CROSSREF _SYMBOL : 
“WORD 


Save R2,R3 : 2230 
53 000000006 00 H: 902 MOVAB LNKSGL_MAXSYMSZ, R3 
48 000000006 00 4 € BBC #4, LNRSGL_CTLMSK, 3$ : 2249 
40 000000006 00 1 £0 00011 S #1, LNKSGL-CTLMSK4+1, 3$ ; 20 
0c AC DD 00019 PUSHL FLAGS : 
4 ac Db iC PUSHL SYMBOLBLOCK 3 205 
52 8 A p 1F MOVL SNB OCK, R2 > 2254 
4 Ad OF 3 PUSHAB 4(R2) ; 
000000006 OF 3 PUSHAB LNKSAL_SYTBLFMT F 
000000006 00 FB ¢ CALLS #4, CRF INSRTKEY : 
11 9 E BLBS CRESTS, 1$ F 
DD PUSHL CREST ; 
E D4 Ls = (SP) : 
000000006 af DD ; 
000000006 00 3 FB : 


Sz 


- 


Te blamed mn ese hy y A ESECHOM OORT88 Watt Maiti Me 


dO 47 18: MOV LNKSGL_MAXSYMSZ 3: 2261 
50 04 A2 88 69 +4 A CMPZV +t He 4(R2), kor? : 
4 18 BLEQU [ 3 
20 04 a ra MOVZBL (R2), RO : 

6 50 DO 0005 ef: MOVL RO, LNKSGL_MAXSYMSZ : 2260 

50 01 00 Babe $: MOVL #1, RO 3: 2263 

04 0005C RET : 2264 


; Routine Size: 93 bytes, Routine Base: $CODE$S + 0058 


Lwe PROCOPTIONS Linker options parser 1G-§e ep-1984 00:22: AX-11 Bliss-32 V4.0-7 Page 123 
He=008 beb en rout ne to catch TPARSE in action 300-1384 99:99:38 LINKER,.SRCJLNKOPTION. G 2:1 . (46) 
H 136 1 &sbttl "Debug routine to catch TPARSE in action’; 
; 219 1 routine debug_stop = 
; 2198 begin 
: 2199 oF return true 
; 2200 69 end; 
0000 00000 DEBUG_STOP: 
«WORD Save nothing i 2266 
50 01 00 00002 MOVL #1, RO ; 2268 
04 00005 RET ; 2269 


Routine Size: 6 bytes, Routine Base: S$CODE$ + ODBS 


LNK_PROCOPT IONS Lsnhor options parser 
VO04= k Length of name 


COCO C909 COCO C9008 INI NNS 


CONAWUE ARO OONOUSE wry 


oO 
Gi 2 ODOo NOE OOO NONE ODS we Roe 
co 
<c 


Se Se ee Se Ge Ge Ge Bt Se Se Se Ge Se Se Se Se Se SF Se Se Se Se Se Se Sees Se Se Sees te ee 


Merron 
WWINIIRoRonononononononong 2 2 3 


MPPoTonononofenofononons: 


SSssssaeaess 


ifosen-19R G0:72:56  YANGII Blase 32 ve. Qa74e, 


best ,nane Length check (namedesc, nametype, special_length) = 


route "Check Leng th of name' 
routine 


i This routine checks that the symbol name is 


r 0 
! and leq sym$c_maxing and issues a SIGNAL_ stor if not 


map 
namedesc : ref bblock; 
local 
max_length; 
builtin 
maiperaneters 


if not mut Lpereneter (3) 
then max_length = .special_ — 
else max ~pgnggh = syméc max lng 
if .namedesc Cdsc$w_length) eql 0° or -hamedesc Cdsc$w ztengthd gtru .max_length 
'Check for illegal name Length 


then 
begin 
local 
symbolbuf : vector (512, byte]; ‘Local buffer to copy name 
eygeethut CO) = .mamedesc Cdsc$w_len thd: 'Create ASCIC string 
me —— (.namedesc Cdsc$u. Tengen ' ? $}: !Copy as much of name in as possible 
u . 


edesc (dsc$a ected pod Symbo 
signals <5 top (Lin$_ilTname 6, .nametype, 'Report error and quit 
uf, ped *tSscse “Length, -max_length, sat iantileate ina, -optionfilename); 


_sym bol 
en 
return ™ 
end; 
OOFC 00000 NAMELENGTHCHECK: 
-WORD Save R2,R3,R4,R5,R6,R7 
se FEOQO CE 9€ 0000 MOVAB -512(SP5, SP 
0 6C 91 0000 CMPBs«(AP), #3 
OB iF S00A BLSSU_1$ 
0c aC 05 0000C TSTL  12¢AP) 
06 1 O00F BEQL ss 
57 oc ac D 1 MOVL SPECIAL LENGTH, MAX_LENGTH 
03 11 0013 BRB ; 
57 1F DO 00017 1$: MOVL #31, MAX_LENGTH 
56 04 ac D 1A 28: MOVL §-NAMEDESC’ R6 
§ B 1 TSTW (RO) 
1 BEQL 6: 3$ 
10 0 +4 CMPZV #0, #16, (R6), MAX_LENGTH 
E ; BLEQU 
6f 46 3 9 3$: VB ene): SYMBOLBUF 
C C MOVZWL 
0200 2&F 81 ? CMPW Os si 
8 BLEQU 
50 0200 BF 3C MOVZWL #512, RO 


Page 124 
(495 


: 2271 


3; 2284 


2285 


3387 


3338 


LNK_PROCOPTIONS Linker options parser ib-ge S$ep-1984 AX-11 Blisg-32 V4.0-7 Page 125 LNK 
y0c=p08 Check Length of nene 300-1382 98: 49} 4 LINKER. SRCJLNKOPTION. 8 231 (193 v04 
01 6 50 28 00038 4$: MOVC3 RO, @4(R6), SYMBOLBUF +1 3 229 
90000000" EF BD 4 PUSHL OPTIONFILENAME + 229 
' gE F 0004 PUSHAB OPTIONFILESTRING + 229 
7 DD 00040 PUSHL MAX_LENGTH + 2298 
7E 66 3C 0004F MOVZWL (R6J, -(SP) : 
10 AE OF 05 PUSHAB SYMBOLBUF + 2297 
08 AC DD PUSHL NAMETYPE ; 
6 DD 0005 PUSHL #6 : 
000000006 8F DD 0005A PUSHL aL INS ILLNAMELEN ; 
000000006 90 8 FB 9060 CALLS #8, LYBSSTOP : 
01 DC 00067 S$: MOVL #1, RO ; 3300 
04 0006A RET + 2301 


; Routine Size: 107 bytes, Routine Base: SCODES + ODBB 


58 


LNK_PROCOPTIONS L 
vOuz000 0 


AMEN" OOONOune 


— 


3; Routine Size: 


1 Xsbttl 


i ne routine is called by TPARSE to report a syntax error and quit 


6E 


60 bytes, 


inker options parser 
ptions persing error routines 


: 


lL ‘Options parsing error routines’; 
rout ne syntexert s = 


local 


descr : 


descr 
descr 


signal_stop Tf 
° tpirse block Ctpast_ 


dsc$a_ 


return true 


end; 


000000006 


Routine Base: 


52 00000000° 
5E 


Ad 
AE 


00 
50 


ointer 


in$_optsynerr 


000000006 
34 


000000006 


intent’ 


omm 


OOOO roOOrrrocom 
—O7 FO M WEN POPROTPONVO™ 


bblock Cdsc$c_s_binj; 
aeciu -tength) = spore gieck Ctpa$l_tokenptr] - .cmdbuffer; 


0004 00000 SYNTAXERR: 
WORD 


ow 
Wwrom 
Oo 
So 
o 
oO 
nm 


oon"oocvoTlvVTlooworPyp 
fFowocrvrcvgo4ano 
SOOoOOoooooooooo°oo 
SoOoOCoooooooooooo 
COoooooooooo°o°oo 
WANN 2 | | COO 
DoD OO OMMou—-m oO 


SCODES + 0E26 


1986 29:94:38 


tiineoPTion, yf 2;1 


gptiont ilenane, Lin$_optlin, 3, descr, tparse_block Ctpa$l_tokencnt], 
ia STOP doesn't return, but. 


Save R2 
CMDBUFFER, R2 
CMOBUFFER, TPARSE_BLOCK+20, DESCR 
R, DESCR+Z 

ARSE_BLOCK+8 
TPARSE “BLOCK+16 
DESCR 

I 

OF TIORF ILENAME 
oT oe tie 

, LIBSSTOP 


LNK_PROCOPTIONS Linker options parser ib-5¢ Sep-1984 AX-11 Bliss-32 V4.0 Pp 7 LNK 
v04 e008 Options parsing error routines Sep-1 3B 99: 44: 3§ LINKER. SRC [aeobtiON 6 B52;1 age 13) V 


: ; i 1 rom’ vatetncssenasi (option_name, tpablock, minval, maxval) = 

: 18 ' 

, ¢ : This routine signals an option value error and stops the image. 

: es . tpablock : ref bblock; 

; 2258 4 local 

: 23 é descr : bblock Cdsc$c_s_bln]; 

: 2261 descr Cdsc$w_length] = .tpablock Ct a$l_tokenptr] - .cmdbuffer; 

3 $6 4 descr Egscgy- zppinterd = sree ffer; ‘ ' 

3; 226 signal_ stop T n$_optvalerr, option. name, pee a k gg number], .minval, .maxval, 
3: 2264 0 -optionfilename, Lin$ _optlin descr, tpab ock Ctpa$l_tokencnt], tpablock ‘Cipasl. stringcent)); 
: 2265 ; 1 return true 

: 2266 : F end; 'Of optionvaluerr 


0004 00000 athena 


-WORD Save R2 3; 2317 
52 00000000" EF 00002 MOV CMDBUFFER, R2 : 
SE 08 ? 00009 SUBL2 #8, : 
50 08 AC 00 0000C MOVL. TPABLO : 2327 
6E 146 AO 62 A3 00010 SUBW3 LMDBUSFER, RO OcROD DESCR ; 
04 AE 62 00 90015 MOVL CMDBUFFER, DESCR+S 3 2328 
08 AO 9F 00019 PUSHAB : 2330 
10 AO 9F 000IC PUSHAB 16<R0) ; 
08 AE 9F OOO1F PUSHAB : 2329 
03 oD 00022 PUSHL : 2330 
000000006 8F DD 00024 PUSHL INS$_OPTLIN ; 
34 A2 bb 990 A PUSHL OPT TORE ILEWAME ; 
7E 0c aC 7D 00020 MOVQ MINVAL, -(SP) ; 
1¢ AO DD 900 1 PUSHL  28(R ; 
04 AC DD 000 PUSHL OPTION_NAME ; 
5 0D 999 7 PUSHL : 
000000006 8F DD 00039 PUSHL aL INS OPTVALERR ; 
000000006 60 0c FB 900 F CALLS #12, F1BSSTOP : 
50 01 DO 00046 MOVL #1, R ; 3331 
04 00049 RET : 2332 


3; Routine Size: 74 bytes, Routine Base: S$CODE$ + 0E62 


m5 
LNK_PROCOPTIONS Linke tions pars 16-Sep-1984 00:22: AX-11 Bliss- 4.0-74 LNK 
v00=000 Ror tane bern ite eevee o28e0-188e 99:99:38 OTReILAROPTIO Page 165 


ptions parsing error routines ep-1984 LINKER. SRCJLNKOPTION.B32;1 v04 
3 $8 3 1 routine missingargerr = 
; 4 4 begin 
3 | § This routine is called by TPARSE to report a missing argument for an option 
: 2e7 § "local 
: f i descr : bblock Cdsc$c_s_bin]; 
3 207 4) descr paschu. lengthy = ,tparse block Ctpa$l_tokenptr] - .cmdbuffer; 
: 2e7 rk descr (Cdsc$a poiaters = .cmdbuffer; 
: 2278 4 signal_stop Tlin$_optargmis, 1, s0pt tent tenant, Lin$_optlin, 3, descr, tparse_block Ctpa$l_tokencnt], 
: 2279 44 tparse_block Ctpa$l_stringcnt)); 
; 2280 45 return true 
3; 2281 46 end; !Of missingargerr 


0004 00000 MISS'NGARGERR: 
«WORD 


Save R2 3; 2333 
52 00000000" EF 9€ 00002 MOV CMDBUFFER, R2 : 
5E 08 C 9009 Suc! 2 #8, SP ; 
6E FO Ad 62 A3 0000C SUBW3  CMDBUFFER, TPARSE_BLOCK+20, DESCR + 2341 
04 AE 62 00 00011 MOVL  CMDBUFFER, DESCR+% + 2342 
E4 Ad OF 0013 PUSHAB TPARSE_BLOCK+ + 2344 
FC A2 9F 00018 PUSHAB TPARSE~BLOCK+16 t 2343 
8 AF 9F 00018 PUSHAB DESCR F 
03 DD OO1E PUSHL @# F 
000000906 8F DD 000 PUSHL #LINS OPTLIN : 
4 A2 DD 00026 PUSHL OPTIONFILENAME : 
ot DD 00029 PUSHL #1 : 
000000006 8F DD 0002B PUSHL aL INS OPTARGMIS : 
000000006 00 08 FB 00031 CALLS #8, LYBSSTOP ; 
50 01 DO 00038 MOVL #1. RO + 2345 
04 00038 RET + 2346 


Routine Size: 60 bytes, Routine Base: SCODE$ + OEAC 


~-EXTRN LIBSSIGNAL, LIBSSTOP 


Name Bytes Attributes 


$GLOBAL$ 44 NOVEC, WRT, RD ,NOEXE,NOSHR, LC 
19 NOVEC, WRT, RO ,NOEXE,NOSHR, LC 
iis SMEs: ‘ 


NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
NOVEC,NOWRT, RD, EXE, SHR, 


L. REL, CON,NOPIC,ALIGN(2) 
L. REL, CON,NOPIC,ALIGN(2) 
SPLITS L. REL, CON,NOPIC,ALIGN(2) 
_LIBSKEYOS L. REL, CON, PIC,ALIGN(1) 


N 
LNK_PROCOPTIONS Linker options parser 16-Sep-1 AX-11 Blisg-32 V4.0-74 
v04 e008 Options Bars ing error routines $-se0-1944 98: 4 38 LINKER. SRCILNKOPTIO nN bS2: 1 
;  LIBSSTATES 1859 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
> -LIBSKEY1 4 OVEC;NOWRT, RD » EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
; SCODES 3816 NOVEC,NOWRT, EXE,NOSHR, LCL, REL, bathed PEE b ob ts 
Siw S « NOVEC,NOWRT ,NORD *NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 
: Library Statistics 
: seman eee ymbol ene aa Pages Proc ess ing 
; File Total Loaded Percent Mapped Time 
; $2 s5senUNse: SYSLIB 11813251 18619 96 Q 1000 00:01.8 
3 “$ 5SSSDUA ES¥SLIB3 TPAMAC .L32;1 4 ; 8 14 00:00.2 
3 =$255$DUA28:CLINKER.OBJJDATBAS.L32;1 538 0 9 28 00:00.8 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:LNKOPTION/OBJ=OBJ$:LNKOPTION MSRC$:LNKOPTION/UPDATE=(ENH$:LNKOPTION) 


S Elaseed Tine: 
; Lines/CPU Min: 
; eaten 


: cee A 


COMMAND QUALIFIERS 


3816 code + 2681 data bytes 
04:03.6 
07 334-0 
57 
CPU=hitns 70016 


Used: 707 pages 
ion Complete 


roe 


MENT CORPORATION  — 
AND PROPRIETARY 


EQUIPMENT CORPORATION 
NTIAL .AND PROPRIETARY 


AH-BT13A-SE DIGI 
VAX/VMS V4.0 CONF 


Vel 


